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developed.  The  computer  code  produced  pressure,  temperature,  density,  and  velocity 
fields  from  given  heat  input  data  for  the  fires.  The  most  important  feature  of  the 
model  was  that  it  accounts  for  the  pressure  buildup  due  to  the  fire  in  a  pressure  vessel 
such  as  Fire  1  or  any  other  closed  vessel  such  as  a  submarine.  Other  features  include 
surface  radiation  exchanse  and  heat  losses  through  the  wall.  Model  results  were 
validated  with  experimental  data  from  Fire  1.  The  envisioned  use  of  the  model  is  in 
simulating  fires  in  Fire  1  and  eventually  in  submarines. 
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I.  INTRODUCTION 


A.  THE  SIGNIFICANCE  OF  FIRE  PROBLEMS  IN  THE  NAVY 

For  many  years  fires  have  been  a  significant  problem  in  the  Navy.  Many  lives 
have  been  lost  and  numerous  injuries  have  resulted  from  these  fires.  The  necessary 
repairs  to  the  ships  adversely  affect  naval  readiness  and  also  cost  millions  of  dollars. 
Table  1  [Ref.  1:  p.65]  shows  the  magnitude  of  the  problem  by  listing  average  yearly 
losses  and  citing  several  specific  fires. 


TABLE  1 

PERSONNEL  CASUALTIES  AND  LOST  OPERATING  DAYS  FROM 


FIRES,  1973  ■ 

•  1980 

Calendar 

Operating 

Year  * 

Injuries  Fatalities 

Days  Lost 

1980 

44 

0 

75 

1979 

33 

2 

81 

1978 

7 

0 

287 

1977 

10 

0 

146 

1976 

12 

0 

165 

1975 

73 

12 

973 

1974 

30 

1 

197 

1973 

57 

9 

211 

Avg. 

35 

3 

284 

Major  Aircraft  Carrier  Flight  Deck  Fires: 

USS  Enterprise 

14  JAN  1969 

S56  Mil 

28  Fatalities 

USS  Nimitz 

26  MAY  1981 

S75  Mil 

13  Fatalities 

*  Up  to  June  19S0 


The  computer  model  developed  in  this  thesis  provides  a  tool  to  simulate  fires  in  closed 
compartments  such  as  those  found  in  submarines.  Hopefully  this  model  and  its 
successors  can  be  used  to  reduce  the  damage  caused  by  shipboard  fires. 
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B.  NAVY  FIRE  RESEARCH 

In  an  effort  to  reduce  the  loss  of  life  and  damage  caused  by  fires  the  Navy  has 
undertaken  for  many  years  programs  to  reduce  the  likelyhood  of  fires  and  to  more 
effectively  combat  fires  once  they  start.  Many  facilities  are  used  to  evaluate  fire 
damage  from  various  scenarios.  These  scenarios  generally  involve  the  evaluation  of 
new  fire  extinguishing  equipment  or  fire  resistant  materials  such  as  prospective  hull 
insulation.  The  Fire  I  Test  Facility  at  the  Naval  Research  Laboratory  is  one  such 
facility  which  is  specifically  designed  to  simulate  fires  aboard  a  submarine  where  the 
pressure  buildup  due  to  the  fire  is  not  vented.  The  computer  code  developed  here  is 
specifically  designed  to  simulate  fires  in  the  Fire  1  Test  Facility. 

Other  related  Naval  and  Coast  Guard  research  involves  the  accurate  evauation  of 
the  fire  hazard  aboard  ships  in  the  fleet.  The  most  spectacular  and  expensive  tests  of 
this  variety  are  full  scale  instrumented  fire  tests  aboard  recently  decommissioned  ships. 
Projects  are  currently  in  the  planning  stages  to  conduct  such  tests  aboard  a  submarine 
and  a  surface  ship.  The  computer  model  presented  here  is  a  first  step  toward  modeling 
the  complex  phenomena  of  a  fire  in  these,  full  scale  conditions. 

C.  PURPOSE  AND  FEATURES  OF  THE  NUMERICAL  MODEL 

One  might  ask,  "What  is  the  usefulness  of  a  computer  model  for  Fire  l?"  Several 
answers  immediately  come  to  mind.  First,  the  actual  test  runs  in  the  facility  are 
expensive.  They  are  on  the  order  of  S75,000  for  an  involved  test.  Obviously,  a 
computer  model  that  could  eliminate  the  need  for  even  a  few  tests  would  be  useful. 
Test  cost  and  physical  limitations  of  the  facility  also  limit  the  number  of  actual  fire 
scenarios  that  can  be  tested.  The  computer  model  could  be  used  to  evaluate  many 
scenarios  that  would  not  normally  be  looked  at.  In  this  way  the  computer  code  could 
be  used  to  screen  scenarios.  Then  actual  tests  would  be  run  on  those  situations  that 
show  up  as  the  most  dangerous  on  the  computer.  Also,  the  program  might  show  areas 
inside  the  test  vessel  where  additional  instrumentation  is  required.  As  a  simple 
example,  Fire  1  now  has  available  portable  thermocouple  racks.  Test  cases  on  the 
computer  would  indicate  the  most  favorable  placement  of  these  portable  racks  to 
record  the  data  desired.  Finally,  since  the  geometry  simulated  by  the  computer  is  much 
more  easily  changed  than  the  geometry  of  the  physical  model,  once  the  computer  code 
is  validated  by  Fire  I  it  could  be  used  to  simulate  other  fires  in  facilities  or  ships  which 
have  much  different  dimensions  than  Fire  I. 
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The  actual  numerical  model  used  here  to  simulate  the  fire  is  referred  to  as  a  field 
model.  In  a  field  model  the  space  is  divided  up  into  a  large  number  of  small  cells  and 
all  the  pertinent  values  for  temperature,  pressure,  density,  species  concentration,  and 
velocities  are  calculated.  Interaction  effects  such  as  radiation,  and  turbulence,  and 
others  are  easily  integrated  in  a  field  model  but  the  overall  results  are  very  dependent 
on  how  accurate  the  particular  radiation  or  turbulence  model  is.  Thus  improvement  of 
the  field  model  accuracy  depends  on  research  in  many  separate  areas.  Field  models  in 
general  require  a  large  amount  of  computer  resources  because  of  the  large  number  of 
cells  required  for  satisfactorily  accurate  results.  As  a  consequence  of  this  complexity 
and  the  limitations  of  present  computers,  real  time  simulations  with  a  field  model  are 
not  feasible. 

The  three-dimensional  model  developed  here  is  a  direct  extension  of  the  two- 
dimensional  model  used  in  the  study  of  aircraft  fires  at  the  University  of  Notre  Dame 
[Refs.  2,3:  pp.  107- 1 1 S,  pp.  1 77- 1 84].  There  are  a  number  of  other  Field  models 
available.  In  [Ref.  4:  pp.  55-77]  a  three-dimensional  model  of  buoyant  convection  and 
aerosol  dynamics  using  the  time  dependent  inviscid  Boussinesq  equations  is  presented. 
A  simple  combustion  model  is  included  in  the  field  model  described  in  [Ref.  5:  pp. 
107-111]  and  in  [Ref.  6:  pp.  115-124]  another  three  dimensional  model  of  a  fire  in 
enclosures  is  developed. 

This  Fire  I  numerical  model  has  a  number  of  important  features.  The  model  is 
three  dimensional.  Primarily  as  a  consequence,  primitive  variables  have  been  used. 
The  choice  of  primitive  variables  rather  than  the  stream  function,  vorticity,  and 
velocity  potential  approach  also  makes  the  application  of  boundary  conditions  much 
easier.  The  major  problem  with  using  primitive  variables  is  the  necessity  and  difficulty 
of  determining  the  local  pressure  field.  This  procedure  will  be  described  in  detail  in  this 
report.  Another  feature  critical  to  this  model  is  a  global  pressure  correction  that  allows 
for  the  pressure  buildup  in  the  closed  system  that  is  being  simulated.  A  radiation 
model  is  also  included  but  it  only  deals  with  surface  to  surface  radiation  effects.  Gas 
radiation  effects  are  not  accounted  for.  A  simple  conduction  model  is  provided  to 
simulate  the  heat  loss  through  the  vessel  walls.  The  overall  numerical  scheme  employs 
the  finite  difference  method. 
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D.  THE  FIRE  1  TEST  FACILITY 

Since  the  Fire  I  test  facility  is  the  specific  subject  of  this  computer  model  and 
since  the  experimental  data  from  this  facility  is  the  basis  of  the  model  validation,  a 
short  description  of  Fire  I  is  provided  here.  A  detailed  report  about  the  facility  is 
provided  by  Alexander,  et.al.  in  [Ref.  7].  and  the  facts  presented  here  are  excerpts  from 
that  reference.  Figure  1.1  [Ref.  7:  p.  2]  provides  a  blueprint  drawing  showing  the 
overall  dimensions  of  Fire  1.  The  tank  shell  consists  of  a  cylindrical  central  body 
27.4  ft  long  with  hemispherical  endcaps.  The  radius  of  the  endcaps  and  the  cyclinder  is 
9.6  ft  giving  a  total  volume  of  11640  fff  or  324  mJ  .  The  test  vessel  is  made  of  ASTM 
285  Grade  C  steel  3/8  in  thick.  The  design  pressure  is  89.7  psia  at  450°F  with  a 
hydrostatic  test  pressure  of  127.2  psia.  Rupture  discs  are  installed  to  prevent 
pressurization  above  S9.7  psia.  [Ref.  7:  p.  4] 

Within  the  basic  shell  modifications  have  been  made  to  provide  instrumentation 
for  fire  testing  and  to  simulate  the  shipboard  environment.  Figure  1.2  [Ref.  7:  p.  32] 
provides  a  side  view  drawing  which  shows  the  location  of  the  thermocouples  and 
radiometers.  A  total  of  20  thermocouples  are  arranged  on  two  arrays  at  the  north  and 
south  ends  of  the  tank.  The  figure  shows  their  exact  locations.  The  thermocouples 
consist  of  chrome-alumel  wire  0.2  mm  in  diameter  with  ceramic  insulation  enclosed  in 
Type  304  stainless  steel  jackets  1  mm  in  diameter.  These  thermocouples  are  provided 
with  steel  radiation  shields.  In  addition  to  the  20  permanent  thermocouples,  in  many 
tests  additional  temporary  thermocouples  are  placed  in  locations  of  interest.  Both  wide 
angle  (135°)  and  narrow  angle  (75°)  radiometers  are  provided  inside  the  tank  near  the 
permanent  thermocouple  arrays.  In  addition  one  wide  angle  radiometer  array  is 
installed  near  the  center  of  the  tank  on  the  lower  deck.  Pressure  readings  are  taken 
from  two  transducers,  one  taps  into  the  north  end  of  the  tank  and  the  other  into  the 
south  end.  The  test  chamber  is  also  equipped  to  measure  smoke  obscuration  levels, 
gas  composition,  and  the  progress  of  the  fire  with  video  cameras.  Figure  1.2  shows 
several  features  which  are  similar  to  a  submarine  interior.  First  are  the  frame  bays 
which  can  provide  a  ducting  or  chimney  effect  for  fires  located  near  them.  Second  are 
the  decks,  one  about  3  ft  above  the  low  point  of  the  tank  and  one  at  the  tank  mid¬ 
plane.  These  decks  may  be  either  grates  or  solid  and  may  be  fully  or  partially  removed 
as  desired  in  a  particular  test.  A  system  of  interior  fans  is  provided  so  that  the  effects 
of  forced  circulation  on  a  lire  in  the  closed  vessel. may  also  be  evaluated.  Finally,  the 
facilty  is  equiped  with  a  nitrogen  pressurization  system  to  extinguish  the  fire.  It  raises 
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Figure  1.1  Blueprint  Drawing  of  the  1  ire  I  lest  Vc^el. 


the  pressure  to  2  atm  in  10  sec  and  extinguishes  the  fire  by  lowering  the  partial 
pressure  of  the  oxygen  to  less  than  10.5%.  [Ref.  7:  pp.  14-33] 

E.  OUTLINE 

The  balance  of  this  thesis  describes  the  details  of  the  numerical  model  and  its 
validation.  In  Chapter  II  the  governing  equations  are  described  and  non- 
dimensionalized.  Then  the  specific  finite  difference  equations  for  the  rectangular 
geometry  are  derived.  This  is  followed  by  an  explanation  of  the  pressure  correction, 
radiation  model,  conduction  model,  and  the  application  of  boundary  conditions. 
Chapter  II  ends  with  an  outline  of  the  solution  procedure.  In  Chapter  III  the  results 
of  the  validation  of  the  model  with  the  experimental  data  are  presented.  The 
conclusions  and  recommendations  for  future  work  are  given  in  Chapter  IV.  The 
derivations  for  the  finite  difference  equations  for  the  actual  cylindrical  spherical 
geometry  are  presented  in  the  Appendices.  Future  work  will  contain  the  validation 
results.  The  other  appendices  contain  the  code  listings  and  several  miscellaneous  items. 
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Figure  1.2  Side  View  of  Fire  I  with  Sensor  Locations. 
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II.  FORMULATION  AND  DESCRIPTION  OF  THE  NUMERICAL  MODEL 


A.  GOVERNING  EQUATIONS 

In  this  section  the  governing  differential  equations  for  the  computer  model  are 
presented  and  then  simplified  by  deleting  terms  not  significant  in  this  particular 
application.  Patankar  in  (Ref  8:  pp.  11-17]  provides  the  general  form  of  the  equations 
while  White  in  [Ref.  9:  pp.  671-674]  provides  the  equations  for  the  rectangular 
geometry.  The  general  form  of  the  equations,  their  simplication,  and  the  development 
of  the  finite  difference  equations  follows  the  form  of  Doria  in  reference  [Ref.  10:  pp. 


1-44]. 


In  the  development  of  the  equations,  an  assumption  of  no  chemical  reactions  is 
made.  The  fire  is  modeled  by  volumetric  heat  input  only  and  the  chemical  composition 
changes  due  to  combustion  reactions  are  ignored.  In  addition,  laminar  transport 
properties  are  taken  to  be  constant,  while  density  is  allowed  to  vary  in  accordance  with 
the  ideal  gas  law.  The  justification  is  that  the  flow  and  temperature  fields  are 
dominated  by  turbulent  transport. 

1.  Equations  in  General  Form 


In  general  form  not  specific  to  any  geometry,  the  governing  differential 


equations  are: 
Continuity  Equation: 


dp 

—  +  V • ( pv )  =  0 
o  t 


( eqn  2.1) 


Energy  Equation: 


d 


DP 


— (ph)  +  V •  (  pvh )  =  V*  (  kVT )  +  — ;  +  <pD  +  sh 
d  t  Dt  u  11 


( eqn  2.2) 


Momentum  Equations: 


d 

TT(  Pvy  )  +  V •  (  pv v x  )  =  V*(jiVv1) 


dP 


+  B 


( eqn  2.3) 
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(  eqn  2.4) 


d 

— (pv2)  +  V*(pvv2)  =  V*(nVv2) 


+  B 


a 

— (pv3)  +  V ♦  (  p vv 3  )  =  7*(fi7v3) 


(  eqn  2.4) 


Equations  of  State: 


P  =  p  R  T 


(eqn  2.6) 


h  =  Cp  (T-Tr) 


(eqn  2.7) 


The  energy  equation  above  assumes  the  use  of  Fourier's  Law  while  the  momentum 
equations  assume  the  use  of  Stokes'  Hypothesis. 

In  the  energy  equation  DP.  Dt  is  the  pressure  work  term,  (p^  is  the  dissipation, 
and  S^  is  the  heat  source  term.  The  low  speed  flows  considered  in  this  model  make  the 
pressure  work  and  dissipation  terms  small.  As  a  result  they  are  assumed  negligible 
from  this  point  and  eliminated  from  the  equations.  Since  the  effects  of  gas  radiation 
are  not  treated  here,  the  heat  source  term  is  non-zero  only  in  the  region  of  the  fire.  In 
the  momentum  equations,  the  subscripts  1.  2,  and  3  indicate  the  three  orthogonal 
directions  of  the  particular  coordinate  system  selected.  B  represents  a  body  force.  The 
energy  and  momentum  equations  both  contain  terms  of  the  form  V'(TV(p)  where  T  is 
the  diffusion  coefficient  and  (p  is  a  dependent  variable.  In  the  laminar  case,  the  values 
of  r  are  properties  of  the  fluid.  However  in  this  numerical  model  where  the  turbulent 
case  must  be  considered,  the  value  of  T  is  replaced  by  a  or  an  effective  value  of 
the  diffusion  property  which  increases  the  original  laminar  value  of  V  by  a  turbulent 
contribution  [Ref.  10:  p.  5].  Thus  the  conductivity  k  becomes  ke^p  and  |i  becomes 
Peff  Fr  in  the  equation  for  the  enthalpy  is  a  reference  temperature. 

2.  Governing  Equations  in  Cartesian  Coordinates 

From  the  general  forms  of  the  differential  equations  just  presented  the 
equations  for  the  Cartesian  or  rectangular  geometry  may  be  developed.  In  the 
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rectangular  geometry  the  three  coordinate  directions  are  x,  y,  and  z  and  the 
corresponding  velocities  are  u,  v,  and  w. 

Now  that  the  coordinate  system  has  been  selected  several  items  may  be 
specified.  The  divergence  and  gradient  in  rectangular  coordinates  are  given  in 
Equations  2.S  and  2.9.  respectively. 


V*  v 


du  dv  dw 
dx  dy  dz 


(  eqn  2.8) 


<3Ta  <3Ta  dT  a 

VT  =  — i  +  — j  +  — k  .  (eqn  2.9) 

dx  dy  dz 

A  A  A 

where  i,  j,  and  k  are  unit  vectors  in  the  x.  y,  and  z  directions.  In  the  momentum 
equation  the  only  body  force  B  of  significance  is  gravity.  It  acts  in  the  negative  z 
direction.  As  a  result: 


Bx  =  0  Bv  =  0  Bz  =  -pg  (eqn  2.10) 

For  convenience  the  static  equilibrium  equation 

0  =  -dPjTq  dz  -  PjTqg  (eqn  2.11) 

is  subtracted  from  the  z-momentum  equation.  In  equation  2.11,  Pjrq  is  the  equilibrium 
pressure  and  p^q  is  the  equilibrium  density.  The  resulting  modified  z-monientum 
equation  shows  the  effects  of  the  buoyancy  more  clearly.  To  further  simplify  the 
equations  the  following  definitions  for  the  heat  flux  q  and  the  shear  stresses  t  are 
substituted: 


qx  =  -keffdT/dx 


(eqn  2.12) 


qv  =  -kefpdT.'dy 


(eqn  2.13) 
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qz  —  -ke||*  dl,  dz 


(eqn  2. 14) 


Txx  =  2  >lefr<au  ax> 

(eqn  2.15) 

Txy  =  Meff(5v/5x  +  du.'dy) 

(eqn  2.16) 

z\z  =  ^eff(^w'^x  +  dz) 

(eqn  2.17) 

>> 

X 

II 

X 

K> 

(eqn  2. IS) 

Tyy  =  2  ^efr^v/5y) 

(eqn  2.19) 

Tvz  =  Meff  (d\\r!dy  +  dv/dz) 

* 

(eqn  2.20) 

Tzx  “  Txz 

(eqn  2.21) 

H 

N 

v<! 

II 

<r\ 

K< 

N 

(eqn  2.22) 

Tzz  =  2  >leff^w''5z) 

(eqn  2.23) 
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Incorporating  these  constitutive  equations  governing  equations  in  rectangular 
coordinates  become: 

Continuity  Equation: 


do  d  d  d 

—  +  — (pu)  +  —  (pv)  +  — (pw)  =  0  (  eqn  2.24) 

o  t  dx  d  y  dz 


Energy  Equation: 


d  d  d  d 

— (ph)  +  — (puh)  +  — (pvh)  +  — (pwh)  = 

d  t  dx  d  y  dz 

chs  ,  s 

dx  dy  dz  ^ 


( eqn  2.25) 


Momentum  Equations: 


d  d  9  d  d 

T7"(  Pu )  +  — (puz)  +  — (puv)  +  — (puw) 

ct  ox  dy  dz 

^Txx  +  ^Txv  +  ^xz  _ 
dx  dy  dz  dx 


(  eqn  2.26) 


d  d  d  .  o  d 

— (pv)  +  — (pvu)  +  — (pvz)  +  — (pvw)  = 

dt  dx  dy  dz 

( eqn  2. 27) 

3tvx  +  Jtlxx  +  flis.  .  B2_ 
dx  dy  dz  dy 


d 

+  — ( pwu) 
dx 


d 

+  — (pwv) 
dy 


+ 


)  = 


s2zx  +  ^zv  +  .  d(p  -  pEa> 

dx  dy  dz  dz 


(P 


( eqn  2.28) 
PEq)  g 


3.  Comment  on  the  Equations 

These  equations  developed  for  rectangular  coordinates  are  the  basis  of  the 
numerical  model.  They  are  parabolic  in  time  and  elliptic  in  space.  The  initial 
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conditions  for  the  dependent  variables  must  be  supplied  for  every  point  in  the 
calculation  domain  and  boundary  conditions  for  the  dependent  variables  must  be 
supplied  for  even-  time  instant.  When  these  conditions  are  met  a  solution  is  possible. 

Similar  but  more  complex  equations  for  spherical  and  cylindrical  coordinate 
systems  are  presented  in  Appendix  A. 

B.  NON-DIMENSIONAL  EQUATIONS 

1.  The  Non-Dimensional  Governing  Differential  Equations 

For  convenience  in  developing  the  numerical  model  the  governing  equations 
may  be  placed  in  non-dimensional  form.  The  following  non-dimensional  quantities  are 
used  to  form-  the  dimensionless  equations.  These  individual  equations  for  the 
dimensionless  quantities  are  solved  for  the  dimensional  quantity  and  substituted  in  the 
dimensional  equations  from  the  previous  section  (Equations  2.24  to  2.2S). 


(eqn  2.29) 


w  =  w/Vj^ 


(eqn  2.30) 


t  =  t  V  R;  H 


(eqn  2.31) 


P  -  P  PR  PEq  ~  PEq'  PR 


(eqn  2.32) 


P  =  (P  -  PEq)-(PRVR-)  PEq  =  PEq''(PRRRTR) 


(eqn  2.33) 


h  “  h/CpRTR 


(eqn  2.34) 
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(eqn  2.35) 


■v 

T 


^'(PRVR2) 


q  -  q  (pRVRCpRTR) 


(eqn  2.36) 


sh  =  (Sh  H):(pRVRCpRTR)  .  (eqn  2.37) 

In  defining  these  non-dimensional  quantities  a  number  of  reference  values  have  been 
used.  H.  the  height  of  the  tank  is  used  as  a  reference  length.  The  reference  values  for 
velocity,  density,  temperature,  specific  heat  at  constant  pressure,  and  the  gas  constant 
are  VR.  pR.  TR.  CpR.  and  RR.  respectively. 

Once  the  substitutions  for  the  dimensional  quantities  are  made  in  the 
equations,  several  other  non-dimensional  quantities  appear.  These  quantities  are  the 
turbulent  Reynolds  Number  (Ret),  the  turbulent  Prandtl  Number  (Prt),  the  square  of 
the  Froude  Number  (F),  and  a  number  proportional  to  the  square  of  the  Mach 
Number  (C).  The  definitions  of  these  nondimensional  quantities  are: 


R-et  -  PR^  R^'^eff  (eqn  2.38) 

Prt  “  >lefICpR'kefT  <ecln  2'39) 

F  =  VR2,'gH  (eqn  2.40) 

C  =  VR2'<CpRTR)  (eqn  2.41) 


The  last  substitutions  necessary  to  convert  from  dimensional  to  non-dimensional  form 
are  for  the  heat  fluxes  and  shear  stresses.  For  rectangular  coordinates  these  quantities 
are: 
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*  cr 


qx  =  -  (dlldx)  i  (RetPrt) 

(eqn  2.42) 

qy  =  -  (dl'dy)  !  (RetPrt) 

(eqn  2.43) 

qz  =  -  (5T/5z)  /  (RetPrt) 

(eqn  2.44) 

txx  =  2  (5u,-3x)  /  Ret 

(eqn  2.45) 

Txv  =  (dv.  dx  +  duidy)  /  Ret 

(eqn  2.46) 

tX2  =  {d\y,'dx  4-  duidz)  /  Ret 

(eqn  2.47) 

X 

II 

£  K> 

(eqn  2.48) 

*vv  =  2  (^v^y)  i  Ret 

(eqn  2.49) 

tvz  =  (3w/3y  +  dv,'dz)  /  Ret 

(eqn  2.50) 

Tzx  ”  Txz 

(eqn  2.51) 
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(eqn  2.52) 


~zz  ~  -  (d'V;dz)  '  ^et  (eqn  2-53) 

Making  the  specified  substitutions  in  the  dimensional  equations  results  in  the  non- 
dimensional  equations.  These  equations  are  listed  below  but  the  tildes  have  been 
dropped  for  simplicity. 

Continuity  Equation: 

dp  d  d  d 

—  +  — (pu)  +  — (pv)  +  — (pw)  =  0  (  eqn  2.55) 

<3t  dx  c  y  d  z 


Energy  Equation: 


d  d  d  d 

— (ph)  +  —  (puh)  +  — (pvh)  +  — (pwh) 

d  t  cx  o  y  d  z 

b_5x  .  d_3y.  .  b3z.  +s 

<?x  dy  dz  ^ 


(  eqn  2.56) 


Momentum  Equations: 


d  d  7  d  d 

— (pu)  +  — (puz)  +  — (puv)  +  — (puw) 
d  t  Ox  d  y  d  z 

c  Txx  +  ^Txv  +  ^rxz  _ 
dx  dy  d  z  dx 


( eqn  2.57) 


d 

+  — (pvu) 
dx 


+ 


d 

q  (  Pv 

dy 


o 

+  — (pvw) 
0  z 


£!vx  +  ilyy  +  .  ££ 

dx  dy  dz  dy 


( eqn  2.58) 


d  d  d  d  ? 

— (pw)  +  — (pwu)  +  — (pwv)  +  — (pw  )  = 
dt  ox  dy  d  z 
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( eqn  2.59) 


PEq)g 


dx 


zx 


dx 


dx 
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dx 


d  y 


zz 


dz 


dV  1 

-  ; - — (P  - 

dz  F 


Equations  of  State: 


P  C  +  PEq  =  P  T 


(eqn  2.60) 


h  =  T  -  1  (eqn  2.61) 

In  all  of  the  following  sections  non-dimensional  quantities  will  be  used  throughout  with 
the  tildes  omitted. 

2.  Non-Dimensional  Equations  in  Integral  Form 

Thus  far  all  of  the  governing  equations  have  been  expressed  in  differential 
form.  In  order  to  implement  a  finite  difference  scheme  however,  the  conservation 
equations  (mass,  energy,  and  momentum)  must  be  transformed  into  an  integral  form. 
This  form  allows  the  determination  of  the  dependent  variables  in  small  but  finite 
volumes  because  the  integral  equations  are  written  for  one  such  control  volume.  The 
non-dimensional  integral  equations  below  are  presented  in  a  format  for  rectangular 
coordinates.  This  is  easily  altered  by  shifting  the  x,  y,  and  z  subscripts  to  the 
appropriate  independent  spacial  variables  for  whatever  geometry  is  selected. 

Continuity  Equation: 

— JypdV  =  -^pv’ndS  (eqn  2.62) 

Energy  Equation: 

— JvphdV  =  -Jsphv*ndS  +  Jvshdv  (eqn  2.63) 

-  ist^x  +  %ny  +  <3znz>ds 
Momentum  Equations: 
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( eqn  2. 64) 


— jvPudv  =  -JsP.u¥*ndS  " 


+  Txxnx  +  Txyny 


— jvPvdv  =  -Jspvv*ndS  - 


+  Tyx*nx  +  Tyyn 


yy  y 


— jvPwdv  =  "JSPwv* ndS  - 


+  is^Tzxnx  +  Tzyny 


JsPnxds 

+  Txznz^dS 

jgPn^ds  ( eqn  2.65) 

+  Tyznz  ) d^ 

JsPnzds  (  eqn  2.66) 

+  rzznz)dS  -  (P  -  PEq>9/F 


In  these  equations  V  is  the  control  volume,  S  is  a  surface  of  the  control  volume  and  n 
is  and  outward  pointing  normal  at  a  particular  surface.  [Ref.  10:  pp.  8-13] 

C.  FINITE  DIFFERENCE  EQUATIONS 

In  order  to  develop  a  finite  difference  algorithm  the  total  volume  to  be  modeled 
must  be  divided  into  a  large  number  of  finite  cells.  The  conservation  equations  are 
applied  to  each  volume  with  the  boundary  conditions  applied  at  the  appropriate 
surfaces.  The  rectangular  geometry  described  here  has  a  uniform  grid.  The  cells  are 
therefore  all  identical  and  the  derivation  of  the  equations  is  relatively  simple.  In  the 
cylindrical/spherical  geometry  discussed  in  Appendix  A  the  radial  grid  is  non-uniform 
and  more  complex.  To  make  the  application  of  the  boundary  conditions  easier  the  cell 
boundaries  coincide  with  the  physical  boundaries.  In  this  finite  difference  algorithm 
the  temperature,  density,  and  pressure  are  calculated  at  the  basic  grid  points.  The 
velocity  grids  are  staggered  one  half  of  a  cell  from  the  basic  grid.  Patankar  gives  a 
detailed  explanation  of  the  reasons  for  using  a  staggered  grid  in  [Ref.  8:  pp.  118-120]. 
Basically,  there  are  two  reasons  for  the  staggered  grid.  First  the  velocity  is  easily 
calculated  as  a  function  of  the  pressures  of  the  basic  cells  on  either  side  of  the 
staggered  cell.  Figure  2.1  illustrates  this  for  a  one  dimensional  system.  With  the 
pressure  known  at  basic  cells  A  and  B  it  is  easier  to  calculate  the  velocity  at  B*  the 
center  of  the  staggered  cell  rather  than  at  either  of  the  basic  cells  A  or  B.  The  second 
reason  for  using  a  staggered  grid  is  that  the  difference  of  adjacent  velocities  is  used  in 


26 


the  continuity  equation  which  eliminates  an  unrealistic  oscillating  solution. 
[Ref.  S:  p.  120] 


Figure  2.1  One-Dimensional  Staggered  Cell. 

In  developing  the  finite  difference  equations  finite  quantities  are  substituted  for 
the  differential  element  in  the  integral  form  of  •  the  equations.  For  example. 
dV  =  AxAyAz  where  the  A  quantities  are  finite  quantities.  Similar  substitutions  are 
made  for  the  various  fluxes  across  the  cell  boundaries.  Two  distinct  differencing 
techniques  are  used  in  this  numerical  scheme.  Forward  differencing  is  used  for  the  time 
steps  and  upwind  differencing  [Ref.  S:  pp.  83-Sf]  is  used  for  the  energy  and  momentum 
fluxes.  In  the  forward  difference  technique  a  future  value  of  the  dependent  variable  is 
predicted  from  a  previous  one  plus  a  known  slope  multiplied  by  the  time  step.  For  the 
continuity  equation 

p  =  p:  +  m  At  '  (eqn  2.67) 


where  p?  is  the  value  of  the  density  at  the  previous  time  step,  p  is  the  new  value,  and  m 
is  a  slope.  Using  this  scheme  for  the  time  dependent  term  in  the  continuity  equation 


d.  _  rp 

-rlvpdv  -  et 


cel 


dV 

1 


P 


—AxAyAz 


At 


( eqn  2.68) 


As  previously  stated  upwind  differencing  is  employed  in  the  calculation  of  the  fluxes 
across  the  cell  surfaces.  Using  the  energy  equation  as  an  example,  the  value  of  the 
enthalpy  h  and  hence  the  temperature  in  the  cell  under  consideration  depends  on  the 
enthalpy  in  the  upwind  cell,  not  the  downwind  cell.  The  upwind  cell  is  defined  as  the 
cell  from  which  the  flow  or  velocity  is  coming. 

The  basic  cell  shown  in  Figure  2.2  is  used  for  the  continuity  and  energy 
equations.  To  ease  the  development  of  the  equations,  directions  have  been  assigned  to 
the  coordinate  axes.  East  is  in  the  positive  x  direction,  west  is  negative.  North  is  in 
the  positive  y  direction,  south  is  negative  and  top  is  in  the  positive  z  direction  while 
bottom  is  negative.  The  center  cell  P  is  the  control  volume  under  consideration.  The 
cell  to  the  east  is  E  and  the  boundary  surface  between  them  is  e.  The  other  adjacent 
cells  follow  the  same  convention.  Since  the  velocity  cells  are  staggered,  velocities  are 
known  at  the  boundaries  between  the  basic  cells.  The  temperature,  pressure,  and 
density  are  known  at  the  basic  cells. 

To  simplify  the  equations  mass  fluxes  at  the  basic  P  cell  boundaries  are  defined 
as  follows: 


Ge  =  -5  (pE  +  pp)  ue 


(eqn  2.69) 


Gw  -  -5  (Pp  +  P\y) 


(eqn  2.70) 


Gn  "  ’5  (PN  +  Pp)  vn 


(eqn  2.71) 


Gs  =  .5  (pp  +  ps)  vs 


(eqn  2.72) 


Gt  =  .5  (pT  +  pp)  wt 


(eqn  2.  /3) 
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Gb  =  .5  (pp  +  pB)  \vb  (eqn  2.74) 


Ideally  in  the  continuity  equation  the  sum  of  the  mass  fluxes  entering  the  cell  is  zero 
but  for  the  iterative  numerical  solution  this  will  not  be  true,  especially  initially.  The 
sum  of  the  mass  (luxes  will  equal  a  finite  non-zero  value  which  is  called  the  mass 
source  term  S  .  As  the  solution  is  iterated  and  comerges,  the  mass  source  term 
becomes  smaller  and  smaller  until  it  is  less  than  a  cutoff  value  which  is  made  close  to 
zero.  With  infinite  iterations  and  infinite  machine  accuracy  Sm  would  become 
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identically  equal  to  zero  and  the  continuity  equation  would  be  satisfied  exactly.  In  the 
actual  numerical  solution  it  is  satisfied  only  approximately.  Utilizing  the  definitions  for 
the  mass  fluxes  and  the  mass  source  the  continuity  equation  in  finite  difference  form  is: 
Continuity  Equation: 


(pp  -  p°p)AxAyAz/6t  +  (Ge-Gw)AyAz  +  (Gn-Gs)AzAx 

(eqn  2.75) 

+  (Gt-Gg)AxAy  =  Snip 

The  other  conservation  equation  that  utilizes  the  basic  cell  is  the  energy  equation. 
Energy  Equation: 

[^Ap  +  p’p  AxAyAz,  At]  hp  =  ^Aphp  +  ^A^yh^y 

+  ^A^-h^i  +  ^A^h^  +  ^Ajhj  +  ^Aghg  +  ^Sp 

where 

hAp  =  .5(|Ge|  -  Ge)AyAz  +  (l/RetPrt)e  AyAz/Ax 


(eqn  2.76) 


(eqn  2.77) 


hAw  =  .5(|GW|  +  Gw)AyAz  +  (l/RetPrt)w  AyAz/Ax  (eqn  2.7S) 


hA^r  =  .5(|Gn|  -  Gn)AzAx  +  (l/RetPrt)n  AzAx/Ay  (eqn  2.79) 


hA$  =  .5(|G$|  +  G$)AzAx  +  (l/RetPrt)s  AzAx'Ay  (eqn  2. SO) 


^ Ay  =  .5(|Gt|  -  Gt)AxAy  +  (l/RetPrt)t  AxAy/Az  (eqn  2. SI) 
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hAg  =  .5(|Gb|  +  Gb)AxAy  +  (l/RetPrt)b  AxAy/Az 


(eqn  2.82) 


(eqn  2.S3) 


^Sp  =  p°p  h°p  AxAyAz 


(eqn  2.84) 


The  momentum  equations  are  slightly  more  complex  because  of  the  staggered 
cells  and  the  additional  terms  introduced  by  the  shear  stress  tensor.  The  grid  for  the  x- 
momentum  equation  is  shifted  one  half  cell  to  the  left  (the  negative  x-direction)  and 
quantities  in  this  grid  are  designated  with  a  a  superscript.  Similarly,  the  staggered  grids 
for  the  y  and  z-momentum  equations  are  shifted  one  half  cell  in  the  negative  y  and  z 
directions  from  the  basic  cell  and  these  are  designated  with  b  and  c  superscripts, 
respectively.  Figures  2.3,  2.4,  and  2.5  show  these  grids  with  respect  to  the  basic  grid 
for  the  xv,  yz,  and  zx  planes.  The  finite  difference  momentum  equations  are: 

X-M  omentum: 

[Apa  +  p°pa  AxAyAz, 'At]  Upa  = 


A  pa  Upa  +  Awa  U^ya  +  A^-a  U^a 


(eqn  2.85) 


+  A^a  U^a  4-  Apa  Upa  4-  Aga  Uga  4-  Spa 


where 


Apa  -  [.5(|Gea|  -  Gea)  4-  (1  Ret)ea  /Ax]  AyAz 


(eqn  2.S6) 


Ayya  -  [.5(|Gvya|  +  G^a)  +  ( 1/Ret)vva  ,'A.x]  AyAz 


(eqn  2.S7) 


ANa  =  [.5(|Gna|  -  Gna)  +  (l  'Re^a  /Ay]  AzAx 


(eqn  2.SS) 
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Figure  2.3  Staggered  Grid  XV  Plane. 

A^a  =  [.5(|G$a|  +  G$a)  4-  (1  Ret)$a  .Ay]  AzAx  (eqn  2.S9) 


Aya  —  [.5(|G^a|  -  Gj.a)  +  (1  Re^a  ,  Az]  Ax  Ay 


(eqn  2.90) 


A^a  -  [.5(|G^a|  -  G^a)  +  (1  Ret)pa  Az]  AxAy 


(eqn  2.91) 


A  pa  —  A  pa  +  A^ya  +  A\a  +  A  ^ a  —  Aya  +  A  pa 


(eqn  2.92) 


Figure  2.4  Staggered  Grid  YZ  Plane. 


Spa  =  P'pa  u°pa  AxAyAz  At  -  (Pp  -  P\y)A>'Az 
-  (u£a  -  u^^-a)(  1.  Ret)ea  AyAz.Ax 

-  {u^.a  -  Upj  j  k)(l  Rct)u^  AyAz.  Ax  (eqn  2.93) 

+  [<vi.j  +  l,k-vi-l.j+l,kX1  Ret'na  •  <vi.j.k  *  vi-l.j.k^1RetV'1  lAz 

+  K"'i.i.k+I  •"'i-l.j.k+l'(|  RctV  •  RetV  1A>' 


and  in  these  equations 


P'pa  -  (P^p  +  PC  \V  >  2 


(eqn  2.94) 


Fisure  2.5  Stacaered  Grid  2X  Plane. 


ui,j.k  “  lHv 


U: 


i+  l.j.k  ue 


(eqn  2.95) 


uea  =  <ue  +  V1  2 


V  ~  <ui,j+l.k  +  2 


(cqn  2.96) 


(cqn  2.97) 


(eqn  2.9S) 
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(eqn  2.99) 


usa  =  Kv  +  ui,j-l,k^ ;2 

uta  =  (ui,j,k+l  +  ^v>  2 

(eqn  2.100) 

uba  =  Kv  +  ui.j,k-l)  '2 

(eqn  2.101) 

Pi.j.k  =  PP 

(eqn  2.102) 

Gea  =  PpUea 

(eqn  2.103) 

Gw*  =  P\VV 

(eqn  2.104) 

Gna  =  [.5(pn  +  Pp)vn  +  -5(Pi-i,j+l,k  +  P\v)  vi-l,j  +  l,kl 

(eqn  2.105) 

Gsa  =  [.5(pp  +  ps)vs  +  -5(PW  +  Pi-l.j-1  Js)  vi-l.j,kl 

(eqn  2.106) 

Gta  =  [.5(pt  +  PpK  +  *5(Pi.i,j,k+l  +  P\v)  u'i-l,j.k+  12 

(eqn  2.107) 

Gba  =  [.5(pp  +  pB)wb  +  .5(pw  +  Pi-i,j,k-l>wi-l,j,k1/2 

(eqn  2.108) 

Y-M  omentum: 
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(eqn  2.109) 


[Apb  +  p'pb  AxAyAz/At]  vpb  = 

Apb  Vpb  +■  Awb  vwb  +  A^-b  vNb 
+  Apb  Vpb  +  A-pb  V-pb  +•  Apb  Vpb  +•  Spb 


where 


Apb  -  [.5(|Geb|  -  Geb) 

+  (l,'Ret)eb  /Ax]  AyAz 

AWb  =  [-5(IGvvb|  +■  Gwb) 

+  (1  Ret)vvb  ;  Ax]  AyAz 

A\b  =  [.5(| Gnb|  -  Gnb) 

+  (1/Ret)nb/Ay]  AzAx 

A$b  =  [.5(|Gsb|  +  Gsb) 

+  (l;Ret)sb  /  Ay]  AzAx 

A-pb  =  [.5(|Gtb|  -  Gtb) 

+  (1/Ret)tb  /Az]  AxAy 

Apb  =  [.5(|Gpb|  -  Gpb) 

+  (1/Ret)pb  /  Az]  AxAy 

Apb  =  Apb  +■  A^yb  +  A\^-b  +•  Apb 
+  A-pb  4-  Apb 

Spa  =  p°pb  v°pb  AxAyAz/At  -  (Pp  -  P$)AzAx 

+  ^ui+l,j.k  ui+  l,j-l,k^'/Ret)eb 
■(ui,j,k-ui,j-l,kX1/Ret)wb  Ay 


(eqn  2.1 10) 


(eqn  2. 1 1 1) 


(eqn  2.112) 


(eqn  2.1 13) 


(eqn  2.1 14) 


(eqn  2.1 15) 


(eqn  2.116) 
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(eqn  2.117) 


+  (vnb  -  v$b)(l/Ret)nb  AzAx  Ay 
-  (vsb  -  vj  1  Ret)$b  AzAx,  Ay 

+  ('vi.j,k+i  •wi,j-i,k+i)(|  Ret>tb  Ax 
■  <wi,j,k  -  wi,j-U>a'Ret>bb  Ax 

Equations  similar  to  Equations  2.94  to  2.1  OS  may  be  easily  formulated  for  the  Y 
and  Z  momentum  equations  but  they  are  omitted  here  for  the  sake  of  brevity. 

Z-  Momentum: 


[Ape  +  p°pc  AxAyAz  At]  Wpc  = 


Ape  WpC  +  A^yC  W^yC  +  AyC  \V\^C 


+  Acc  \VCC  4-  Atc  w- 


Age  Wgc  +  Sj 


(eqn  2.1  IS) 


where 


A£e  =  [,5(|Gec|  -  Gec) 

+  (1/Ret)ec  /Ax]  AyAz 

A\VC  =  ["5(|GWCI  +  Gwc) 

+  (1/Ret)wc  /Ax]  AyAz 

Anc  =  [.5(|Gnc|  -  Gnc) 

+  (1/Ret)nc  /Ay]  AzAx 

Asc  =  [.5(|Gsc|  +  G$c) 

+  (1/Ret)$e  /Ay]  AzAx 


(eqn  2.119) 


(eqn  2.120) 


(eqn  2.121) 


(eqn  2.122) 


Ajc  -  [.5(|Gtc|  -  Gtc) 

+  (1/Ret)tc  /Az]  AxAy 
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(eqn  2.123) 


Age  =  [.5(|Ggc|  -  Ggc) 

+  (PRet)gc  /Az]  AxAy 

Ape  =  Ape  +  A^yc  +  A^c  +  Age 

+  Aye  +  Age 

Spe  =  p°pc  \v°pc  AxAyAz;At  -  (Pp  -  Pg)AxAy 
-  (p’pc  -  Ppq  pc)AxAyAz/F 

+  <ui+l,j,k  +  ui+I,j.k-lX1'Ret)ec  Az 

'  (ui.j,k  ‘  “i.j.k-lX1,  RetV 

+  <vi,j+l.k-vi.j+l.k-l)(RRet'ncAx 

'  <\j,k  '  vi,j,k-lWl/RetV  Ax 

+  (\vtc  -  Wgc)(l/Ret)tc  AxAy/Az 
*  (wbc  -  Wij^.iXi/Re^b0  AxAy/ A 


(eqn  2. 124) 


(eqn  2.125) 


(eqn  2. 126) 


In  each  equation,  velocities  corresponding  to  the  primary  direction  of  momentum 
transfer  in  each  momentum  equation  are  expressed  with  the  e,  w,  n.  s,  t,  and  b 
subscripts.  Thus  in  the  x-momentum  equation  u  velocities  have  these  subscripts. 
Because  of  the  complexity  of  the  equations  the  other  velocities  such  as  v  and  w 
velocities  in  the  x  momentum  equation  have  i,  j,  and  k  subscripts.  When  using  this 
notation  v—  j.  is  the  v  velocity  at  Pb  or  the  center  of  the  v  grid.  Similarly  Wj  j  p  is  at 
Pc  and  U:  ;  1,  is  at  Pa. 

t.jA 

D.  INITIAL  CONDITIONS  AND  BOUNDARY  CONDITIONS 

In  order  to  obtain  solutions  to  the  governing  equations  initial  and  boundary’ 
conditions  must  be  applied  to  the  model.  Because  of  the  setup  of  the  model  with  the 
cell  boundaries  corresponding  to  the  physical  boundaries  the  applications  of  these 
conditions  is  relatively  easy. 
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1.  Initial  Conditions 

The  initial  conditions  correspond  to  the  Fire  I  test  vessel  just  prior  to  a  test. 
The  air  is  initially  motionless  so  the  velocity  field  is  set  equal  to  zero.  The  pressure 
distribution  is  the  static  equilibrium  distribution  in  the  tank.  The  ambient  temperature 
is  an  input  to  the  program  and  corresponds  to  a  non-dimensional  temperature  of  1  at 
all  points. 

2.  Boundary  Conditions 

Because  the  chamber  is  sealed  no  mass  flows  across  any  of  its  surfaces.  Thus 
the  velocity  and  hence  the  mass  flux  normal  to  any  surface  is  zero.  No  slip  conditions 
are  also  taken  at  the  walls  so  all  velocities  at  the  walls  are  zero.  The  boundary 
conditions  for  the  energy  equations  are  more  complex  because  thermal  radiation  energy 
is  deposited  at  the  interior  wall  surfaces  and  the  steel  walls  conduct  energy  to  the 
exterior  walls  where  it  is  convected  away.  In  this  model  the  innermost  wall  cell  is  the 
outermost  cell  for  the  cavity  calculation  domain.  The  determination  of  the 
temperatures  in  the  wall  cells  is  discussed  in  detail  in  the  conduction  model  section. 
The  effect  of  the  energy  transported  to  the  wall  by  the  thermal  radiation  is  also 
discussed  there. 

E.  TURBULENCE  MODEL 

The  turbulence  model  used  in  the  algorithm  is  an  algebraic  model.  The  relatively 
simple  algebraic  type  of  model  was  selected  because  the  desired  outputs  of  the  program 
are  the  average  values  of  the  dependent  variables  which  the  algebraic  model  predicts 
adequately  while  using  much  less  computational  time  than  its  rivals.  More  complex 
models  are  required  when  computation  of  turbulent  characteristics  is  desired.  Nee  and 
Liu  presented  in  [Ref.  11:  p.  107]  a  model  which  is  satisfactory  for  obtaining  the 
effective  viscosity  (pe^)  in  recirculating  buoyant  flows  with  large  variations  in  the 
turbulence  level.  In  dimensionless  form,  when  generalized  to  three  dimensional  flows, 
the  equation  is 

^eff  =  !  +  (uv2+vx2+vv2+w z2+wx2+uz2)1/2(  1/R)2 

Ri  ( eqn  2.127) 


where  Ri  is  the  Richardson  number  defined  as 


Ri 


( eqn  2 . 128 ) 


gH  (  dT/cz ) 

VR^  (  du/dz.  )2  +  (  <3v/<3z  ^ 

Prt  is  the  turbulent  Prandtl  number,  1  H  is  the  non-dimensional  mixing  length  given 
as 


and  K  in  the  mixing  length  equation  is  an  adjustable  constant.  The  efTective 
conductivity  is  related  to  the  effective  velocity  by  the  following  equation: 


keff 


—  +  _L  Meff 
Pr  Prt  M0 


( eqn  2.  130 ) 


where  Pr  is  the  molecular  Prandtl  number. 

F.  CONDUCTION  MODEL 

In  the  later  stages  of  the  fire  tests  in  the  Fire  I  Test  Chamber  the  bulk  of  the 
heat  energy  transferred  into  the  cavity  is  lost  through  the  walls.  As  a  result  the 
incorporation  of  a  conduction  model  in  the  numerical  model  is  vital  if  the  numerical 
simulation  is  to  bear  any  resemblence  to  the  actual  test  results. 

A  simple  one  dimensional  model  described  by  Chang  and  Yang  in  [Ref.  12:  pp. 
24-27]  is  used  here.  The  model  consists  of  2.5  cells  through  the  wall  thickness.  A 
constant  thermal  conductivity  for  the  steel  is  used  and  an  appropriate  convection 
coefficient  for  the  outside  wall  must  be  selected.  Figure  2.6  shows  the  setup  of  the  wall 
cells.  Three  types  of  equations  are  necessary  to  describe  this  situation:  One  for  the 
cells  in  contact  with  the  outside,  one  for  the  center  cells,  and  one  for  the  inside  wall 
cells.  The  equations  shown  below  are  written  for  a  wall  section  at  the  bottom  of  the 
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rectangular  box  so  the  area  for  the  heat  transfer  is  AxAy  and  the  outward  normal  is  in 
the  negative  z  direction.  The  equations  are  shown  in  dimensional  form.  Starting  from 
the  outside  where  the  cell  is  1/2  the  thickness  of  the  interior  cells  the  one  dimensional 
equation  using  the  convection  boundary  condition  on  the  outside  is: 


Figure  2.6  Arrangement  of  Cells  in  the  Wall  Conduction  Model. 


— -^AxAy(T°w2  -T°wl)  -  hAxAy(T°wl  -  T°0)  = 
AZW 


( eqn  2 .  131) 
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AxAyAz 

Pcpw  '  2  '\t  (  TW1"T°W1 ) 


For  a  center  cell  the  equation  is: 


lW. 


k, 


AxAy(Tow3  -  T»w2)  -y~ - AxAy(T«w2  -  T«wl)  = 


Az 


Az 


W  W 

AxAyAz 

PCpW— At  ^  TW2-T°W2 ) 


( eqn  2. 132 ) 


On  the  inside  wall  the  wall  cell  is  also  included  in  the  cavity  domain  so  T\y-  in  the  wall 
is  the  same  a  Tj  for  the  cavity  calculations.  T->  is  the  first  non-wall  cell  in  the  cavity. 
Using  this  nomenclature  the  equation  for  the  inside  of  the  cavity  wall  cell  is: 


Az 


^ — AxAy(T°o  -To,)  -k^ 
z  1  Az 


W/2 

AxAyAz 

+  Qr  =  PcpW~^  ( TW3  “  T° 


-AxAy(Tow3  -  T°w2 


( eqn  2. 133 ) 


W3 


In  these  equations  k^y  is  the  wall  conductivity,  Az^y  is  the  thickness  of  a  full  size  wall 
cell,  pCp^y  is  the  heat  capacitance  of  the  wall  material  and  in  the  inside  wall  cell 
equation  Qr  is  the  heat  input  to  the  inside  cell  by  thermal  radiation. 

G.  RADIATION  MODEL 

The  radiation  model  used  in  the  numerical  model  only  accounts  for  the  surface  to 
surface  radiation  effects.  The  gas  inside  the  test  vessel  is  assumed  to  be  transparent 
and  nonparticipating.  This  assumption  tends  to  increase  the  heat  transfer  to  the  inside 
vessel  walls  [Ref.  13:  pp.  142-161].  The  effect  of  the  model  therefore  is  to  take  energy 
directly  from  the  location  of  the  fire  and  deposit  it  on  the  walls  of  the  tank  thereby 
affecting  the  boundary  conditions  for  the  energy  equation  at  these  walls.  The  term  for 
this  addition  of  energy  at  the  wall  has  already  been  utilized  in  the  conduction  model. 
The  surfaces  of  the  tank  and  the  fire  are  assumed  to  be  gray.  All  radiation  whether 
reflected  or  emitted  from  a  surface  is  assumed  to  be  diffuse. 
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1.  The  Method  for  Calculating  the  Radiant  Heat  Transfer. 

The  net  radiosity  method  for  the  interchange  of  radiation  between  gray 
surfaces  as  described  by  Sparrow  and  Cess  in  [Ref.  14:  pp.  90-94]  is  the  basis  of  the 
radiation  model.  The  aim  is  to  accurately  model  the  radiation  effects  while  using  as 
little  computation  time  as  possible. 

In  order  to  understand  the  radiation  model  a  number  of  terms  must  be 
defined.  The  net  rate  of  energy  loss  by  a  surface  (i)  due  to  radiation  is  equal  to  the 
energy  emitted  minus  the  energy  absorbed  or 

Qi/Aj  =  E;  <J  T;4  -  a;  H;  (eqn  2.134) 

where  £•  is  the  emittance.  a  is  the  Stephan-Boltzman  constant,  a-  is  the  absorptance. 
and  H-  is  the  incident  radiant  energy  per  unit  time  and  area.  The  radiosity  B  is  the  rate 
at  which  radiant  energy  leaves  a  surface  and  equals  the  radiation  emitted  plus  the 
radiation  reflected. 

B-  =  c-  <7  Tj4  +  p-  H-  (eqn  2.135) 

In  this  equation  p-  is  the  reflectance  of  the  surface.  Since  the  tank  surface  is  assumed 
opaque  no  thermal  radiation  is  transmitted  through  the  material  so  it  must  be  either 
reflected  or  absorbed  and 


Pi 


+  «;  =  1 


(eqn  2.136) 


Also  since  the  surfaces  are  assumed  gray 

«•  =  £q  (eqn  2.137) 

Combining  this  with  Equation  2.136 

Pj  =  1  -  (eqn  2.13S) 

With  the  definitions  above  the  calculation  procedure  for  the  radiation  energy 
fluxes  can  be  developed.  Substituting  for  p-  in  Equation  2.135 
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(eqn  2.139) 


Bj  =  £i  Tj4  +  (1  -  e;)  Hj 

Now  recalling  that  Hj  is  the  energy  incident  on  surface  (i).  Hj  can  be  defined  as  the 
sum  of  the  radiosities  Bj  for  each  of  the  surfaces  in  the  enclosure  multiplied  by  the 
shape  factor  Fjj  where  Fjj  is  the  fraction  of  energy  emitted  from  surface  (j)  that  is 
incident  on  surface  (i). 


H,  =  I  Bj  Fjj 


(eqn  2.140) 


The  radiositv  now  becomes 


Ci  =  ci<rTi-,  +  (l.ci)lBj 


(eqn  2.141) 


where  1  <  i  <  N  which  gives  N  equations  for  N  surfaces.  To  find  the  net  heat  loss 
at  a  particular  surface  substitute  Bj  from  Equation  2.139  into 


Si  = 

Ai 


1  -  ei 


-  Bi4) 


( eqn  2. 142) 


This  equation,  Equation  2.142  was  found  by  solving  for  Hj  in  Equation  2.139  and 
substituting  into  equation  2.134. 

As  just  mentioned,  the  heat  loss  from  each  surface  may  be  found  by  solving 
the  N  simultaneous  equations  resulting  from  Equation  2.141  and  then  substituting  into 
Equation  2.142.  In  order  to  solve  the  N  simultaneous  equations  the  temperature  and 
emittance  of  each  of  the  N  surfaces  must  be  known  as  well  as  the  view  factors  from 
every  surface  to  every  other  surface.  By  manipulation  of  the  equations  it  is  possible  to 
set  up  a  situation  where  the  simultaneous  equations  need  only  to  be  solved  once  and 
then  the  temperatures  raised  to  the  fourth  power  in  vector  form  are  multiplied  by  an 
unchanging  square  matrix  to  yield  the  heat  loss  rates  for  each  surface.  In  the 
equations  which  follow,  []  brackets  enclose  a  square  matrix  and  <  >  brackets  enclose  a 
column  vector.  Using  matrix  notation  Equation  2.141  is  written  as 

[C]  <B>  =  <r  <T4>  (eqn  2.143) 

where  each  element  in  the  C  matrix  is  defined  by 
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cy  “  (5ij-('-£,)  Fij)/£i 


(eqn  2.144) 


In  Equation  2.144,  5-  is  the  Kroneeker  delta  so  if  i  =  j  then  5-j  is  one,  otherwise  5-j  is 
zero.  Solving  Equation  2.143  for  <B> 

<  B >  =[C]’1<t<T4>  (eqn  2.145) 

Now  to  solve  for  the  heat  loss  rate  substitute  Equation  2.145  into  Equation  2.142  so 
that 


<Qi/Ai>  =  [G]  <r  <T4>  (eqn  2.146) 

where 

Gjj  =  (Sjj  -  Dy)  Cj/d-C;)  (eqn  2.147) 

and 

[D]  =  [C]'1  (eqn  2.14S) 

In  this  scheme  the  [G]  matrix  is  found  using  the  emittance  and  view  factors  and  need 
only  be  calculated  once.  Then  to  find  <Q-/A->  the  temperatures  for  each  surface  are 
substituted  into  Equation  2.146. 

To  reduce  the  calculations  necessary  for  the  radiation  model  further,  the 
number  of  surface  radiation  zones  is  made  significantly  less  than  the  number  of  cells 
with  boundaries  touching  the  surface.  This  is  accomplished  by  grouping  20-30  surface 
cells  into  each  surface  radiation  zone.  Then  the  temperatures  raised  to  the  fourth 
power  for  the  cells  are  averaged  to  get  a  T4  value  for  each  zone.  This  reduces 
enormously  the  number  of  view  factors  and  the  number  of  radiant  heat  fluxes  that 
must  be  calculated. 

2.  View  Factor  Calculations 

In  order  to  implement  the  radiation  calculatio-ns  just  described  the  view 
factors,  which  are  the  ratio  of  radiant  energy  leaving  one  surface  that  is  incident  on 
another,  must  be  calculated.  In  the  rectangular  box  which  is  the  calculation  domain 
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for  this  system,  the  "flame"  is  modeled  as  a  specified  group  of  cells  in  the  interior  of  the 
cavity  where  energy  representing  the  heat  input  of  the  fire  is  added.  In  this  mode!  the 
flame  surfaces  are  therefore  also  rectangular  in  shape.  Thus  the  view  factors  are  of  two 
types:  Radiation  exchange  between  parallel  rectangular  surfaces  and  radiation 
exchange  between  perpendicular  rectangular  surfaces. 

Sparrow  and  Cess  in  [Ref.  14:  p.  125]  provide  the  general  definition  of  the 
shape  factor. 


(1  'A-,)  jj  cos0]Cos0->  (rcr~)  d A j d A -> 


(eqn  2.149) 


Figure  2.7  illustrates  the  configuration  of  the  two  surfaces  used  in  this  definition. 
Although  equations  are  tabulated  for  the  geometries  in  [Ref.  14:  pp.  339-344]  and  many 
others  they  are  complex  and  tedious.  Instead  of  using  these  equations  a  direct 
numerical  method  employed  by  Chang  and  Yang  in  [Ref.  12:  pp.  15- IS]  has  been  used. 
Figure  2.S  illustrates  the  arrangement  of  the  two  perpendicular  rectangular  surfaces. 
The  equation  for  the  view  factor  corresponding  to  this  geometry  is 


2  2  2  2 


(eqn  2. 150) 


,=i  j=i  k=i  1=1 


where  i,  j,  k.  and  1  are  the  indices  for  the  coordinates  shown  in  Figure  2.S  and 


(eqn  2. 151) 


BEjk  =  (yj  -  bk) 


( eqn  2. 152) 


G(AL|j.BEjk) 


!BEkjAL;i  tan-‘(BKkj  AL,p 


(eqn  2. 153)’ 
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+  .5  [ALU2  ln(ALH)J}  /  2* 

The  second  configuration  consisting  of  two  parallel  plates  is  shown  in  Figure  2.9.  The 


equation  of  the  view  factor  for  this  geometry  is 

F2,  =i£Z£(-‘)"o(ALu,BH.k) 

i=l  j=l  k=l  1=1 

(eqn  2.154) 

where 


alh  =  ai 2  +  xi z 

(eqn  2.155) 

BEjk  =  bk'z  +  >yz 

(eqn  2.156) 

and 


G(ALn,BE-k) 

=  ALH(l  +  BEkp1/2  tan-^AL^l  +  BE^2)1''2] 

+  BEkj(l  +  ALii),/2  tan' 1  [BEj^j '( 1  +  AL^2)1,2] 

-  BEkj  tan_1(BEkj)  +  ln[(  1  +  BEkj2)i;2] 

-  ALj-  tan'*(ALk)  +  ln[(l  +  ALU2)1;2] 

(eqn  2.157) 

-  .5  ln(l  4-  ALj-2  +  BEkj2) 

From  these  two  view  factor  equations  all  the  necessary  view  factors  for  the  rectangular 
geometry  may  be  calculated.  [Ref.  12:  pp.  15-16] 

Appendix  B  lists  the  fortran  program  which  calculates  the  view  factors.  These 
view  factors  are  calculated  for  a  particular  fire  location  and  then  utilized  when  the 
main  program  is  run. 
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X 


Figure  2.S  Geometry  for  View  Factor  Calculation  between  Perpendicular  Plane  Surfaces. 
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H.  PRESSURE  CORRECTION 


One  of  the  difficulties  arising  from  the  use  of  primitive  variables  is  the  difficulty 
of  calculating  the  pressure.  In  the  closed'  system  modeled  here  the  pressure  changes  are 
divided  into  two  parts:  1.)  Changes  due  to  a  net  energy  change  in  the  system  which 
raises  or  or  lowers  the  pressure  everywhere,  and  2.)  Changes  in  pressure  within  regions 
of  the  tank  which  determine  the  velocity  field.  To  account  for  these  changes  in 
pressure  a  global  pressure  correction  is  applied  for  the  first  case  and  a  local  pressure 
correction  for  the  second. 

1.  Global  Pressure  Correction 

The  global  pressure  correction  is  based  on  a  scheme  for  a  two  dimensional 
uniform  grid  as  developed  by  Nicolette,  Yang,  and  Lloyd  in  [Ref.  15:  pp.  1724-1725]. 
Using  this  method  overall  pressure  levels  are  increased  or  decreased  depending  upon 
whether  energy  is  added  or  removed  from  a  system  with  constant  mass  and  volume. 
At  any  particular  time  step  (n)  in  such  a  system  the  sum  over  all  the  cells  of  the  cell 
density  times  the  volume  is  equal  to  a  constant  which  is  the  mass  of  the  system.  This 
is  of  course  the  same  as  the  sum  using  the  initial  equilibrium  densities  because  the  mass 
in  the  vessel  does  not  change.  Therefore  summing  over  N  cells: 


I  p^AxAyAz);  =  L  PEq5i(AxAyAz)j 


(eqn  2.158) 


Since  the  cells  are  uniform,  (AxAyAz)-  may  be  divided  out  so  that 


(eqn  2.159) 


Assuming  an  ideal  gas  and  recalling  that  the  volume  is  constant,  p  the  density  is  a 
function  of  P  and  T  only.  Now  expressing  the  exact  or  true  values  of  the  pressure  and 
temperature  at  a  time  step  as  the  sum  of  an  estimated  value  and  a  global  correction 
then: 


P  =  P  +  Pa' 


(eqn  2.160) 


T  =  T  +  Ta' 


(eqn  2.161) 
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Figure  2.9  Geometry  for  View  Factor  Calculation  between  Parallel  Plane  Surfaces. 
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where  the  *  superscript  is  the  guessed  or  estimated  value  and  the  '  subscript  g  is  the 
correction.  Substituting  these  equations,  2.160  and  2.161  into  Equation  2.159  and 
using  the  ideal  gas  law  results  in 

Pg'  “  !-pEqII;Ti  •  1/T*1  -  — (P*/T*)>  / 1(1.  T)  (eqn  2.162) 

Generally  the  first  guess  for  P  is  the  value  from  the  previous  time  step.  Then  a  PCT'  is 

W 

computed  and  added  to  the  estimated  value  in  every  cell.  This  procedure  is  continued 
until  a  globally  corrected  pressure  is  obtained  which  conserves  mass  in  even.’  cell 
[Ref.  15:  pp.  1724-1725]. 

2.  Local  Pressure  Correction 

The  difficulty  in  determining  the  pressure  field  results  from  the  fact  that  the 
pressure  appears  in  equation  of  state  multiplied  by  C  which  is  a  non-dimensional 
number  proportional  to  the  square  of  the  Mach  number.  Since  the  velocities  are 
relatively  low  compared  to  the  speed  of  sound  in  this  natural  convectionsystem.  C  is 
extremely  small  and  the  pressure  is  very  weakly  linked  to  the  system  of  equations. 
Trying  to  extract  the  pressure  from  the  equation  of  state  by  using  a  numerical  method 
is  doomed  to  failure.  Instead,  an  iterative  technique  using  the  mass  conservation 
equation  to  find  the  pressure  is  employed.  In  it  the  pressure  field  is  guessed.  Then  the 
velocities  are  computed  based  on  this  pressure  distribution.  With  the  velocities  known 
the  mass  source  term  Sm  also  called  the  residual  mass  is  computed  for  each  cell.  The 
size  of  Sm  is  a  check  on  the  conservation  of  mass  in  each  cell  and  a  sum  of  the 
absolute  values  of  Sm  gives  an  overall  error  for  conservation  of  mass  in  the  system.  If 
Sm  is  near  zero  the  pressure  guess  is  good.  Otherwise,  a  local  pressure  correction  is 
computed  based  on  the  size  of  Sm  and  the  procedure  is  continued  until  Sm  is  reduced 
to  a  satisfactory  value.  The  equation  of  state  is  used  (with  the  pressure  now'  known)  to 
find  the  densities  for  the  next  time  step. 

Doria  outlined  in  [Ref.  10:  pp.  26-32]  a  procedure  for  computing  the  local 
pressure  correction.  As  in  the  global  correction  the  actual  pressure  equals  a  guess  plus 
a  correction 

P  =  P*  +  P'  (eqn  2.163) 
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Doria's  method  provides  a  finite  difference  equation  for  the  pressure  correction  similar 
in  form  to  the  finite  difference 'Conservation  equations.  The  equation  for  P'  is  : 


ApPp  ~  aEPE  +  A\VP\V  +  ANPN  +  ASPS 
+  AjPj'  +  abPB  ’  ^mP  AxAYAz 


(eqn  2. 164) 


where 

AE  =  pe  (AYAz)2 

/(Apai+1^k  +  peAxAvAz/At) 

Aw  =  pw  (AyAz)2 

/  (Apa+  pwAxAyAz,  At) 

AN  =  Pn  (AzAx)2 

/(APbi,j+l,k  +  PnAxA>'Az/At) 

As  =  ps  (AzAx)2 

/  ( Apb  +  psAxAyAz/At) 

Aj  =  pt  (AxAv)2 

/  (APci,j,k+  1  +  PtAxA>'Az''At) 

Ab  =  pb  (AxAy)2 

/  (Ape  +  pbAxAyAz/At) 

AP  =  AE  +  AW  +  AN  +  AS  +  AT  +  A8 


(eqn  2. 165) 


(eqn  2.166) 


(eqn  2. 167) 


(eqn  2.16S) 


(eqn  2.169) 


(eqn  2. 170) 

(eqn  2.171) 


At  the  solid  boundaries  where  the  mass  flux  is  zero  the  coefficient  A  in  the  P'  equation 
corresponding  to  that  boundary  is  set  equal  to  zero.  Once  the  P  correction  (P')  is 
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computed  and  added  to  p  ’  new  velocities  maybe  computed  from  the  following 
equations: 


u 


u’ 


+  u' 


(eqn  2.172) 


* 

V  =  V  4-  V' 


(eqn  2.173) 


* 

W  =  W  +  W' 


where 


(eqn  2. 174) 


u'  =  (Pp'  -  Pw')  AyAz  /  (Apa  4-  pw  AxAyAz/At) 


(eqn  2.175) 


v'  =  (Pp'  -  P^')  AzAx  /  (Apb  4-  ps  AxAyAz/At) 


(eqn  2.176) 


w'  =  (Pp'  -  Pp’)  AxAy  /  (Ape  4-  pp  AxAyAz/At)  (eqn  2.177) 

Then  Sm  is  computed.  If  it  is  small  enough  the  procedure  stops,  otherwise  a  new  P'  is 
computed  and  the  cycle  continues. 

I.  SOLUTION  PROCEDURE 

Figure  2.10  shows  a  How  chart  detailing  the  calculation  procedure.  As  shown  by 
this  flow  chart,  the  first  few  steps  set  up  the  initial  parameters.  The  view  factor  data 
must  be  read  in  from  a  File  because  the  view  factors  are  computed  in  a  separate 
program.  Subroutine  CALVIS  is  called  to  calculate  the  effective  viscosity  for  the  time 
step.  Every  ten  time  steps  the  energy  fluxes  to  the  interior  walls  of  the  vessel  are 
computed.  In  the  interim  the  last  value  calculated  is  used.  Subroutine  CALT  is  then 
called  to  determine  the  temperatures  in  the  interior  cavity  and  the  walls  of  the  vessel. 
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All  of  these  subroutines  use  an  implicit  technique  to  solve  the  matrices  formed  by 
employing  the  finite  difference  equations  on  each  cell.  Next  the  global  pressure 
correction  is  computed  followed  by  the  density.  Then  subroutines  are  called  to  find  the 
three  velocities  and  the  pressure  in  each  cell.  From  the  new  cell  pressures  a  corrected 
velocity  estimate  is  made.  With  these  velocities  the  continuity  equation  is  applied  to 
each  cell  and  the  residual  mass  or  the  error  in  the  cell  mass  balance  is  determined.  The 
sum  of  the  absolute  value  of  these  cell  residual  masses  is  called  the  residual  mass 
source  (Resorm).  The  size  of  this  term  is  really  a  check  of  the  global  and  local 
pressure  corrections.  If  the  Resorm  is  too  large  (greater  than  the  tolerance  e)  then  the 
solution  is  iterated.  In  order  to  minimize  the  CPU  time  required  to  run  the  program, 
the  CALT  subroutine  and  the  global  pressure  correction  are  not  computed  on  even.’ 
iteration.  In  the  present  scheme  where  the  maximum  number  of  iterations  is  9.  CALT 
is  only  run  on  the  first,  fourth,  and  seventh  iterations.  On  the  other  iterations  only  the 
velocities  and  the  pressure  are  recalculated.  When  the  Resorm  is  less  than  the 
tolerance  or  the  maximum  number  of  iterations  have  been  reached  the  program 
proceeds  to  the  next  time  step  or  stops  the  calculations  if  the  maximum  time  has  been 
reached. 


Figure  2.10  Flowchart  for  the  Numerical  Calculation  Procedure. 
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Fieurc  2.10  Continued. 


III.  COMPARISON  OF  THE  NUMERICAL  RESULTS  WITH  THE 

EXPERIMENTAL  DATA 


In  an  attempt  to  validate  the  numerical  model  comparisons  were  run  with 
experimental  data  provided  by  the  Naval  Research  Laboratory  for  the  Fire  1  Test 
Facility.  As  a  background  for  the  discussion  of  the  results,  the  data  necessary  to 
implement  the  numerical  model  in  a  particular  situation  is  presented.  This  is  followed 
by  a  specific  listing  of  the  parameters  used  for  the  test  case  in  which  the  numerical 
versus  experimental  results  were  compared.  Finally  the  analysis  of  the  results  is  made. 

A.  IMPLEMENTING  THE  NUMERICAL  MODEL 

When  modeling  a  specific  scenario  for  the  Fire  I  test  vessel  a  number  of 
parameters  must  be  known.  First  the  type  of  fuel  and  its  burn  rate  must  be  known. 
With  this  data  the  heat  release  rate  as  a  function  of  time  can  be  calculated.  Next  the 
location  of  the  fire  or  fires  in  the  vessel  is  required.  The  location  of  any  temporary 
instrumentation  such  as  the  movable  thermocouple  racks  must  also  be  recorded. 
Finally  ambient  conditions  which  consist  of  the  initial  pressure  and  temperature  in  the 
vessel  are  necessary.  With  this  information  the  simulation  may  be  run. 

B.  NUMERICAL  SIMULATION  PARAMETERS  AND  BACKGROUND  DATA 

FOR  THE  FIRE  TEST  CASE 

Details  of  the  actual  parameters  used  in  the  numerical  model  are  listed  in  Table 
2.  The  material  properties  and  thickness  of  the  wall  listed  in  the  table  are  for  the 
ASTM-2S5  Grade  C  steel  used  in  Fire  I.  In  order  to  best  simulate  the  actual  Fire  I 
geometry'  with  a  rectangular  box  several  considerations  were  used  in  determining  the 
size  and  shape  of  the  box.  First  the  volume  of  the  box  was  taken  to  be  the  same  as  the 
volume  for  the  actual  text  vessel  (.11,640  ftJ).  Next  the  cross  sectional  area  of  the  box 
perpendicular  to  the  long  axis  was  the  same  as  the  cross  sectional  area  of  the 
cylindrical  section  of  Fire  I.  Using  these  two  parameters  as  guidelines  the  dimensions 
of  the  rectangular  box  work  out  to  be  17  ft  x  17  ft  x  40.2  ft.  The  height  of  17  ft  was 
also  selected  as  the  reference  length  H  which  was  used  in  non-dimensionalizing  the 
governing  equations.  The  grid  as  indicated  in  Table  2  by  the  values  of  Ax,  Ay,  and  Az 
was  relatively  course.  This  was  necessary  because  of  the  large  amount  of  CPU  time 
required  even  for  this  grid.  The  size  of  the  time  step  was  determined  by  selecting  a  At 
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which  permitted  performing  calculations  for  the  duration  of  the  experimental  fire  in  a 
reasonable  length  of  CPU  time  while  still  maintaining  stabilty  in  the  computational 
results.  Calculations  using  time  steps  of  .017  and  .00S5  sec  did  not  show  any 
significant  deviation  from  the  larger  value  of  .17  sec  which  was  used  for  the  bulk  of  the 
calculations. 


TABLE  2 

NUMERICAL  MODEL  PARAMETERS 

Ax  =  2  ft  Ay  =  1.1  ft  Az  =  1.1  ft 

Total  number  of  interior  cells  5120  (  20  x  16  x  16  ) 

Total  number  of  wall  radiation  zones  66 

Wall  Characteristics: 

Thickness  3/8" 

CpW  0.1  Btu/(lbm  °F) 

kw  25  Btu/(hr  ft  °F) 

pw  4S7  Ibm  (ft3) 

External  heat  transfer  coefficient  7.5  Btu/(  hr  ft  °F  ) 

Time  step  .17  sec. 


The  background  data  is  shown  in  Table  3  for  the  actual  fire  with  which  the 
numerical  results  were  compared.  Heptane  has  a  heating  value  of  20S54  Btu.  Ibm 
[Ref.  16:  p.  388].  As  shown  in  the  table  the  burn  rate  date  was  unavailable.  The  steps 
taken  to  overcome  this  difficulty  are  explained  in  detail  in  the  following  section.  The 
fire  was  extinguished  after  422  seconds  by  injecting  an  amount  of  nitrogen  sufficient  to 
lower  the  partial  pressure  of  oxygen  below  the  critical  value  required  for  combustion. 
The  interior  setup  of  Fire  I  in  this  test  differed  from  the  numerical  model  because 
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Fire  I  had  a  grate  installed  in  the  north  end  of  the  tank  at  mid  height.  The  grate  did 
not  extend  into  the  spherical  endcap.  The  data  from  this  configuration  was  the  closest 
to  a  completely  empty  interior  that  was  available. 


TABLE  3 

FIRE  BACKGROUND  DATA 

Fuel 

Heptane 

Burn  rate 

Unavailable 

Duration  of  the  Fire 

422  sec 

Initial  temperature 

35.7°C  or  96° F 

Initial  pressure 

1  atm 

C.  RESULTS 

1.  Generating  the  Heat  Release  Rate 

Due  to  a  failure  of  the  instrument  which  measures  the  burn  rate  of  the  fuel  at 
the  Fire  I  facility  no  experimental  data  for  the  actual  heat  release  rate  was  available. 
Since  this  latter  quantity  is  a  necessary’  input  to  the  program  the  lack  of  data  presented 
a  significant  problem.  A  temporary  solution  pending  the  availabilty  of  the  actual  burn 
rate  data  was  developed.  The  guiding  principles  are  simple.  The  energy  input  to  the 
cavity  produces  three  effects:  It  raises  the  pressure,  it  is  lost  by  conduction  through 
the  walls,  and  it  goes  into  the  motion  of  the  gas.  Because  of  the  low  natural 
convection  velocities  involved  the  last  effect  as  a  percentage  of  the  input  energy  is 
small.  Also  initially  when  the  temperatures  inside  the  tank  are  close  to  the  external 
temperatures  the  conduction  loss  is  a  small  part  of  the  energy  loss.  Thus  for  a 
significant  interval  the  heat  input  is  almost  exclusively  used  in  raising  the  pressure. 
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Using  the  ideal  gas  law  P  =  pRT  and  P  =  pRT  if  p  and  R  are  constant.  Now 
making  the  gross  assumption  that  the  heat  input  is  uniform,  the  gas  density  remains 
constant  in  the  tank  because  the  enclosed  volume  of  gas  as  well  as  its  mass  is  constant. 
The  rate  of  heat  input  is  just  a  constant  times  T  and  therefore  the  heat  release  rate  is 
proportional  to  the  change  in  pressure  with  respect  to  time.  This  quantity  dP,'dt  is 
available  experimentally  in  terms  of  the  slope  of  the  pressure  curve. 

The  scheme  to  artificially  develop  a  heat  release  curve  is  based  on  using  the 
experimental  pressure  curve  as  an  input.  From  the  slope  of  this  curve  a  first 
approximation  of  the  heat  input  is  determined.  Initially  for  the  reasons  mentioned 
above  this  guess  is  fairly  good  but  as  conduction  losses  mount  it  proves  inadequate. 
To  overcome  this  difficulty  the  initial  guess  is  corrected  so  that  the  calculated  pressure 
results  follow  the  experimental  values.  To  illustrate  how  this  works,  the  following 
example  is  provided.  Figure  3.1  shows  a  typical  experimental  pressure  curve.- 


Figure  3.1  Typical  Experimental  Pressure  versus  Time  Curve. 
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Throughout  the  time  period  shown  the  actual  fire  strength  or  heat  input  is  increasing. 
Initially  the  slope  is  large  so  the  estimated  heat  input  is  large.  As  the  fire  progresses 
the  slope  falls  off  and  more  of  the  heat  is  going  into  conduction  losses.  Thus  the 
increasing  total  fire  strength  is  not  rellected  since  the  estimated  value  actually 
decreases.  To  account  for  this  error  in  heat  input  the  estimated  value  from  the  slope  is 
multiplied  by  a  correction  factor.  In  order  to  prevent  this  correction  factor  from 
becoming  too  large  an  additional  alteration  is  made.  This  can  best  be  explained  by 
looking  at  Figure  3.2. 


time 


Figure  3.2  Comparison  of  Actual  to  Estimated  Heat  Input  Curves. 

Curve  A  shows  the  estimated  heat. input  corresponding  to  the  slope  of  Figure  3.1  while 
curve  B  is  the  actual  heat  input  required  by  the  numerical  model  to  match  the 
experimental  pressure  curve.  The  correction  factor  is  the  number  at  each  time  step 
that  curve  A  must  be  multiplied  by  to  get  curve  B.  .At  the  later  time  steps  when  curve 
A  is  near  zero  due  to  the  small  slope  of  the  pressure  curve  this  correction  factor  must 


be  very  large.  To  limit  this  correction  to  a  more  reasonable  number  which  produces  a 
more  stable  result  curve  C  is  used  as  the  estimated  heat  input.  Figure  3.3  shows  a 
block  diagram  of  the  correction  routine.  The  correction  factor  was  computed  as 
follows: 


Correction  =  Pdata-pcomp  .  pcomo~p  com  +  x  ( eqn  3.2) 

P  P 

data  data 

where  Pcomp  is  the  computed  pressure  and  P°comp  is  the  computed  pressure  from  the 
last  time  step.  The  first  term  provides  a  position  error  type  of  correction.  If  the 
calculated  value  of  the  pressure  is  too  large  the  heat  input  is  reduced  or  vice  versa  if 
the  pressure  is  too  low.  The  second  term  provides  a  rate  error  correction  to  reduce 
oscillations.  If  the  correction  causes  the  computed  curve  to  approach  the  actual  curve 
too  fast  this  term  slows  the  rate  of  closure  to  prevent  overshooting. 

Figure  3.4  shows  the  computed  heat  input  curve.  Oscillations  are  obviously 
present.  These  are  due  to  the  stability  problems  that  arise  from  taking  the  derivative  of 
numerical  data  and  the  problems  with  the  correcting  scheme.  The  average  heat  release 
rate  for  the  time  period  shown  does  correspond  with  similar  data  available  from  XRL. 
Without  the  precise  burn  rate  data  this  is  the  best  method  available  to  provide  a  test  of 
the  program. 

2.  Numerical  Results  versus  Experimental  Data 

The  calculated  pressure  values  follow  the  experimental  data  very  closely  as 
shown  in  Figure  3.5.  This  is  of  course  the  way  the  correction  scheme  was  designed  to 
work  so  such  a  comparison  is  not  a  validation  of  the  model. 

A  comparison  of  the  calculated  temperature  versus  the  actual  temperature  is 
the  only  method  now  available  for  comparison.  Before  discussing  the  graphs  showing 
the  temperature  plots  it  is  important  to  understand  how  the  numerically  determined 
temperatures  were  selected  to  correspond  with  the  locations  of  the  thermocouples  in 
the  actual  cylindrical  spherical  geometry.  A  point  at  the  center  of  each  geometry  was 
selected  as  a  reference.  Then  the  volume  in  the  actual  geometry  between  this  reference 
point  and  the  thermocouple  rack  was  determined.  A  length  corresponding  to  the  same 
volume  between  the  center  reference  point  in  the  rectangular  box  and  a  YZ  plane  was 
then  determined.  A  line  half  way  across  this  YZ  plane  pointing  up  in  the  Z  direction 
was  then  selected  as  corresponding  to  the  thermocouple  rack.  The  position  of  each 
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Figure  3.3  Block  Diagram  for  the  Heat  Input  Correction  Routine. 


(Ai>l)  indMI  1V3H 


Figure  3.4  Computed  Heat  Input. 
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(juv)  aaassand 


Figure  3.5  Numerical  and  Experimental  Pressure  Curves. 
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thermocouple  in  the  actual  vessel  was  measured  as  a  ratio  of  its  height  from  the 
bottom  divided  by  the  total  height  at  that  point.  This  ratio  was  then  applied  to  the 
line  representing  the  thermocouples  in  the  rectangular  box  and  the  temperatures  of  the 
grid  cell  in  which  the  themocouple  positions  were  located  was  the  temperature  used  for 
comparison.  Figure  3.6  shows  a  cross  sectional  view  of  the  rectangular  box  with  the 
location  of  the  fire  and  the  thermocouples  specified. 

In  order  to  compare  the  results  the  temperatures  from  three  thermocouples 
were  selected  and  plotted:  Thermocouple  §2  near  the  top,  thermocouple  #4  at  about 
3/4's  of  the  distance  from  the  bottom,  and  thermocouple  #6  about  halfway  up.  Figure 
3.7  shows  the  results  which  were  plotted  until  the  fire  was  extinguished  at  422  seconds. 
The  temperatures  computed  numerically  for  the  upper  region  of  the  tank  are 
significantly  higher  (about  150°C)  than  the  actual  temperatures.  In  the  mid  region  the 
computed  and  experimental  results  correspond  quite  well.  Results  in  the  lower  portion 
of  the  tank  were  not  compared  because  the  experimentel  and  numerically  computed 
temperatures  change  only  slightly  in  this  stagnant  region.  The  main  reason  for  the 
discrepancy  in  the  upper  region  is  the  difference  in  the  geometry  of  the  two  cases.  The 
actual  thermocouples  are  located  in  the  spherical  end  region  and  are  about  6  ft  from 
the  end  of  the  tank.  In  the  rectangular  geometry  the  thermocouples  are  about  3  ft 
from  the  end  of  the  tank.  The  difference  is  illustrated  in  Figure  3.8.  The  problem  is 
that  the  upper  thermocouples  in  the  rectangular  geometry  are  in  the  region  where  the 
hot  gas  from  the  fire  turns  the  corner  and  returns  in  a  recirculating  flow  to  the  center 
of  the  tank.  In  the  actual  case  the  hot  gas  follows  the  curvature  of  the  tank  in  the 
spherical  region  and  penetrates  further  before  returning.  Thus  the  hot  gas  flows  above 
thermocouples  #2  and  #4  and  the  experimental  temperatures  are  significantly  lower. 
Since  no  velocity  measurements  are  made  in  the  tank  the  onlv  wav  to  verify  this 
supposition  will  be  to  run  the  code  using  the  actual  geometry. 

The  general  spacing  and  shape  of  the  experimental  and  numerical  curves  are 
similar.  Except  in  the  region  of  120-220  sec  the  spacing  between  the  numerical  and 
experimental  curves  for  thermocouples  #2  and  #4  is  similar.  All  the  curves  level  off  at 
about  the  same  time.  This  indicates  that  the  same  time  is  predicted  for  a  quasi-steady 
state  where  heat  in  equals  heat  out  for  both  the  model  and  the  actual  vessel.  It  should 
also  be  noted  that  the  smooth  appearance  of  the  experimental  curves  is  due  to  their 
reconstruction  from  a  small  number  of  points  taken  from  the  original  experimental 
plots.  These  original  plots  show  much  more  evidence  of  turbulent  oscillations  as  seen 
in  Figure  3.9  from  NRL. 
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Figure  3.6  Fire  and  Thermocouple  Location 
in  the  Rectangular  Model. 
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TEMPERATURES  VS  TIME 


Figure  3.7  Temperature  Plots  for  Thermocouples  #2,  #4,  and  #6. 
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Figure  3.S  Model  and  Actual  End  Region  Geometry. 


Figure  3.9  Experimental  Temperature  Plot  for  Thermocouple  #2 

from  NRL. 


71 


Another  source  of  error  in  the  model  is  the  assumption  of  a  uniform  spacial 
heat  input.  In  a  real  fire  more  heat  is  added  in  the  middle  region  than  in  the  top  or 
bottom  portion  of  the  flame.  This  error  in  the  model  does  not  have  a  significant  effect 
on  the  results  shown  here  because  the  sensors  are  so  far  from  the  fire  that  temperature 
effects  due  to  non-uniform  heat  input  are  lost  in  the  turbulent  mixing  between  the  fire 
and  the  sensors.  For  data  from  a  sensor  close  to  the  fire  this  effect  should  be 
considered. 

3.  Velocity  Profile  and  Isotherm  Plots 

Velocity  profile  and  isotherm  plots  are  shown  for  the  XZ  and  YZ  planes  that 
intersect  the  fire.  Figure  3.10  shows  the  location  of  these  cross  sections.  Figures  3.11 
through  3.24  shown  XZ  and  YZ  plane  views  of  velocity  and  isotherm  plots  starting  at 
60  sec  and  ending  at  420  sec.  The  figures  at  12S  sec  show  the  plots  at  the  maximum 
fire  strength.  The  velocity  vector  scales  are  shown  on  each  figure  while  the 
temperatures  of  the  isotherms  are  the  same  for  all  the  plots.  As  might  be  expected  the 
plots  show  the  development  of  the  recirculating  flow  with  time.  The  downward  How  of 
the  hot  gas  in  the  region  of  the  thermocouples  is  evident.  The  densely  packed 
isotherms  at  the  top  of  the  tank  indicate  the  high  heat  transfer  in  that  region.  The 
lowering  height  of  the  isotherms  show  the  penetration  of  heat  with  time  into  the  lower 
regions  of  the  tank. 
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Fie urc  3.H>  Location  of  Cross  Sections  used  for 
Isotherm  and  Velocity  Plots. 
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Velocity  and  Isotherm  Plot ^  alter  I2N  see  on  the  XZ  Plane. 


Figure  3.14  Velocity  and  Isotherm  Plots  after  12S  sec  on  the  YZ  Plane. 
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figure  3. 1 5 


Figure  3.16  Velocity  and  Isotherm  Plots  after  1S1  sec  on  the  YZ  Plane. 
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F  igure  3.17  Velocity  and  Isotherm  Plots  after  245  sec  on  the  XZ  Plane. 
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Figure  3. IS  Velocity  and  Isotherm  Plots  after  245  sec  on  the  YZ  Plane. 
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Figure  3.19  Velocity  and  Isotherm  Plots  after  299  sec  on  the  XZ  Plane. 
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Figure  3.20  Velocity  and  Isotherm  Plots  after  299  sec  on  the  YZ  Plane. 
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Figure  3.21  Velocity  and  Isotherm  Plots  after  364  sec  on  the  XZ  Plane. 
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Figure  3.22  Velocity  and  Isotherm  Plots  after  364  sec  on  the  YZ  Plane. 
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Figure  3.23  Velocity  and  Isotherm  Plots  after  420  sec  on  the  XZ  Plane. 


Figure  3.24  Velocity  and  Isotherm  Plots  after  420  sec  on  the  YZ  Plane. 
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IV.  CONCLUSION  AND  RECOMMENDATIONS 


A.  CONCLUSIONS 

A  number  of  conclusions  may  be  drawn  from  this  initial  simulation  of  the  Fire  I 
test  vessel  with  a  numerical  model: 

1)  Despite  a  lack  of  experimental  heat  release  rate  data  preliminary  validation  of 
the  model  is  possible  by  numerically  generating  a  heat  release  curve  from  the 
other  data  that  was  available. 

2)  The  rectangular  model  does  not  predict  the  temperatures  accurately  in  the 
upper  region  of  the  tank  near  the  tank  endcaps  primarily  due  to  the  difference 
in  the  geometries.  The  uncertainty  in  the  heat  release  rate  also  plays  a  role. 
Lower  in  the  tank  away  from  the  downward  recirculating  flow  the  calculated 
temperatures  are  more  accurate.  The  overall  shape  and  spacing  of  the  curves 
from  the  model  and  experimental  curves  are  similar. 

3)  The  expected  pattern  of  recirculating  flow  in  both  the  XZ  and  YZ  planes  is 
predicted  by  the  model. 

4)  Since  the  Fire  I  test  facility  has  no  velocity  sensors,  details  of  the  flow  field  are 
now  available  that  were  unavailable  before.  Thus  some  useful  information  on 
the  approximate  magnitude  of  the  velocities  and  the  height  of  the  recirculating 
flow  zone  may  be  extracted  from  the  model. 

5)  More  extensive  validation  of  the  numerical  scheme  requires  the  availabilty  of 
heat  release  rate  data  and  the  change  to  the  actual  cylindrical/ spherical 
aeometrv  in  the  numerical  model. 

1 

B.  RECOMMENDATIONS 

In  order  to  better  simulate  the  Fire  I  test  vessel  a  number  of  recommendations 
for  future  work  are  presented  here: 

1 )  Validate  the  cylindrical,  spherical  numerical  model  with  data  from  as  many 
locations  away  from  the  endcaps  as  possible.  With  the  current  setup  the  two 
permanent  racks  of  thermocouples  and  radiometers  located  at  symmetrically 
opposite  ends  of  the  tank  provide  only  one  set  of  data  for  validation  purposes. 
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2) 


Validate  the  model  with  experimental  heat  release  rate  data.  This  will  allow 
using  the  pressure  as  a  validating  parameter  rather  than  an  input.  The 
pressure  check  is  much  more  desirable  because  it  is  a  global  check  unlike  the 
temperature  which  is  a  check  at  only  one  point  and  is  much  more  subject  to 
variations. 

3)  Add  more  components  to  the  numerical  model  including  decks  and 
recirculating  fans  to  better  simulate  the  tests  in  the  Fire  I  test  facility. 

4)  Add  an  ability  to  simulate  the  nitrogen  pressurization  capability  of  Fire  I. 
This  would  allow  an  excellent  ability  to  validate  the  conduction  model  after 
the  fire  is  out. 

5)  Incorporate  a  combustion  model  and  a  gas  radiation  model.  Both  of  these 
items  would  add  greatly  to  the  capability  of  the  model.  The  combustion 
model  in  particular  would  eliminate  the  need  for  specifying  the  flame  envelope 
and  the  distribution  of  the  heat  release  rates  from  combustion  throughout  the 
flame.  In  addition,  the  combustion  model  would  provide  a  basis  for  the 
oxygen  depletion  rate  and  eventually  the  effectiveness  of  a  nitrogen  gas 
extinguishing  svstem. 
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APPENDIX  A 


THE  FINITE  DIFFERENCE  E  <S  IN  OTHER  COORDINATE 


The  finite  difference  equations  for  the  numerical  model  in  cylindrical  and 
spherical  coordinates  are  presented  in  this  appendix.  One  important  difference  between 
these  equations  and  the  rectangular  equations  presented  earlier  is  the  use  of  a  non- 
uniform  grid.  Specifically,  the  spacing  in  the  r-direction  is  variable.  This  was  done  to 
try  to  keep  the  cells  as  square  shaped  as  possible  and  avoid  long  thin  cells  that  tend  to 
reduce  the  accuracy  of  the  program. 

I.  THE  FINITE  DIFFERENCE  EQUATIONS  IN  CYLINDRICAL 
COORDINATES 

In  the  cylindrical  geometry  the  three  coordinates  are  r.  0,  and  z.  The  velocities  in 
these  directions  are  V  VQ..and  Vz,  respectively.  Unlike  the  rectangular  geometry 
where  eravitv  onlv  acts  in  the  z-direction,  here  it  acts  in  both  the  r  and  0  directions  so 

V  ✓  ✓ 

an  appropriate  term  is  included  in  the  r-momentum  and  0-momentum  equations. 
Continuity  Equation: 


(pp  -  p°p)AV/At  +  (reGe-rwGw)A0Az 

+  (Gn-Gs)ArpAz  +  (Gt-GE)rpArpA0  =  SmpAV 


(eqn  A.l) 


where  the  mass  fluxes  at  the  boundaries  are: 


Ge  =  [(ArppE  +  ArEpp)  /  (Ar£  +  Arp)]  Vr 


e 


(eqn  A. 2) 


Gw  -  [(Ar^yPp  +  Arpp^y)  /  (Arp  +  Ar^y)]  Vr 

w 


(eqn  A. 3) 


Gn  =  -5  (PN  +  Pp)  V0n 


(eqn  A. 4) 
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Gs  =  .5  (pp  +  ps)  V0S 

(eqn  A. 5) 

Gt  =  >5  (PT  +  Pp)  Vzt 

(eqn  A. 6) 

Gb  =  -5  (pp  +  pB)  VZb 

(eqn  A. 7) 

Energy  Equation: 


[^Ap  +  P'p  AV  At]  hp  -  ^Aj:  hg  4-  h^Y 

A  ^A^-  h^-  4-  ^Ag  hg  4-  KAj  hy  4-  ^Ag  hg  4-  ^Sp 

(eqn  A. 8) 

where 


hAE  =  (.5<|Ge|  -Ge)  +  l/[(RetPr,)e(rE-rp)]}  rgABAz 

(eqn  A. 9) 

^ A \y  =  {*5(|GVV|  +  Gvv)  +  l,‘[(RetPrt)w(rp-r^y)]}  r^yABAz 

(eqn  A.  10) 

hAx  =  (,J(|Gn|  -  Gn)  +  l,[(Re,Prt)n  rpA9]}  ArpAz 

(eqn  A.  1 1) 

hAs  -  {.5(|GS|  +  Gn)  +  l,[(RetPrt)s  rpA6J}  ArpAz 

(eqn  A.  12) 

hAT  =  (,5(|Gt|  -  Gt)  +  l,[(RetPrt)t  Az]}  rpArpA0 

(eqn  A.  13) 

hAB  -  {.5(|Gb|  -  Gb)  +  l;[(RetPrt)b  Az])  rpArpAe 

(eqn  A.  14) 
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hAp  =  {.5(|Ge|  +  Ge)rp-Gere  +  rp,[(RetPr,)e(rE-rp)]}  AOAz 

+  {.5(|GW|  -  Gw)rp  +  Gwrw  +  ip  ((RetPrt)w(rp-rw)])  A6Az  (eqn  A'l:,> 

+  +  ^Ay 


hSp  =  p°p  h°p  AV  /  At 


(eqn  A. 16) 


The  momentum  equations  are  slightly  more  complex  because  of  the  staggered 
cells  and  the  additional  terms  introduced  by  the  shear  stress  tensor.  The  grid  for  the  r- 
momentum  equation  is  shifted  one  half  cell  in  the  negative  r-direction  and  quantities  in 
this  grid  are  designated  with  an  a  superscript.  Similarly,  the  staggered  grids  for  the  0 
and  z-momentum  equations  are  shifted  one  half  cell  in  the  negative  0  and  z  directions 
from  the  basic  cell  and  these  are  designated  with  b  and  c  superscripts,  respectively. 
Because  of  the  complexity  of  the  equations,  variables  with  i,  j,  and  k  subscripts  are 
used  to  identify  the  grid  location  of  many  variables.  The  following  equations  define  the 
location  of  these  subscripted  variables: 


Pp  ”  Pi.j,k 


(eqn  A.  17) 


(eqn  A. IS) 


(eqn  A.  19) 


V  =  V 
zb  zi.j,k 


(eqn  A. 20) 


r. 


w 


(eqn  A. 21) 
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rp  “  rI 


(eqn  A. 22) 


o 

II 

t> 

(eqn  A. 23) 

The  finite  difference  momentum  equations  are: 

R- Momentum: 

[Apa  4  P°pa  AVa  /  At]  Vrpa  = 

A  pa  V  4-  Att/3  V  4  An  a  V 

c  r  pa  VV  r\va  * '  r  \^a 

(eqn  A. 24) 

4  Aoa  V  4-  Aja  V  +  Ana  V  4  Spa 

S  rsa  r  rTa  B  rBa  P 

where 


Apa  =  {.5(|Gea|  -  Gea) 

+  l/[(Ret)ea  Arp  ]}  reA0Az 

(eqn  A. 25) 

Awa  =  {•5(|Gwa|  4-  Gvya) 

4  l/[(Ret)wa  Arw  ]}  r^AOAz 

(eqn  A. 26) 

Ajqa  =  {.5(|Gna|  -  Gna) 

4  l/[(Ret)na  rwA6  ]}  ArpaAz 

(eqn  A. 27) 

Aga  =  (.5(|Gsa|  4  Gsa) 

4  l;[(Ret)sa  rwA0  ])  ArpaAz 

(eqn  A. 28) 

Aja  =  {.5(|Gta|  -  Gta) 

4  l/[(Ret)ta  Az  ]]  rwArpaA0 

(eqn  A. 29) 

Apa  =  {.5(|Gpa|  -  Gpa) 

(eqn  A.31) 

93 


+  l/[(Ret)^a  Az  ]}  rwArpaA0 


Apa  =  {.5(|Gea|  +  Gea)rw  -  Ggarp  +  rw .[(Ret)ea  Arp  ]} 
x  A0Az 

+  {.5(|G^-a|  -  Gvva)  rj.j  +  G^,a  rw  +  rj.j/[(Ret)w,a  Arw  ]} 
x  A0Az 


S  na 


+  Ayi  +  A$a  ■*"  A-j-a  4-  Apa 

P°pa  V°  AVa/At  -  (rpPp  -  rwPw)  A0Az 
-  (p  pa  -  ppq  pa)  sin0p  AVa  F 
f  (re\  r^a  -  rw\  r^)(  1  Ret)ea  A0Az,  Arp 

*  (rwVrwa  *  ri- 1  Vq_  i  j  ^)(  1  Ret)wa  A0Az/ArW 
+  <VOi.j  4-  l?k  *  V0i-l,j4-  l^X1'  Ret>na  Az 
^0i,j,k  ’  ^  0i-l,j,k^  ^et^sa  Az 


+  ( V7  -  V7  . 

zi.j,k  +  1  zi-l,j,k+  1 


)(l,Ret)ta  A6 


(Vz,j,k-Vzi-l.i,k)(1/Re^Ae 


and  in  these  equations 


Arpa  —  (Arp  +  Ar^y)  /  2 


AVa  =  rpaArpaA0Az 

=  rw(Arp  +  Arw)  A0Az  /  2 

Gea  —  -5  Pp  (re^r£  +  rw^  rw^  rP 


(eqn  A. 32) 


(eqn  A. 33) 


(eqn  A. 34) 


(eqn  A. 35) 


(eqn  A. 36) 
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(eqn  A. 37) 


Gvva  -5  P\y  (rw^rw  +  ri-l^r-_|  j  '  rW 

Gna  =  [.5(px  +  pp)  ArwV0n 

+  -5(Pi-l,j+l,k  +  M  ArPV0i-Lj+l,kJ 

/  (Arp  +  Ar^y) 

Gsa  =  [.5(Pp  +  ps)  ArwV0s 

+  -5(P\V  +  Pi-l,j-l,k)  ArPv0i-l,j,kJ 

-  (Arp  +  Arw) 

Gta  =  [.5(pj  +  pp)  Ar^yV 

+  -5(Pi-l,j,k+l  +  pw)  ArPVzi.1<j>k+1] 

/  (Arp  +  Ar^y) 

Gba  =  [.5(pp  +  pB)  ArwVZb 

+  -5(pw  +  Pi-i.j.k-l)  ArPvzi_,  j  R1 
/  (Arp  +  Arw) 

0- Momentum: 

[Apb  +  p°pb  AVb/At]  V0pb  = 

AEb  V0Eb  +  Awb  V0wb  +  ANb  V0xb 
+  A^b  V0pb  +  Ayb  V0yb  +  Apb  V0pb  +  Spb 

where 

A£b  =  {.5(|Geb|  -  Geb) 

+  l,[(Ret)eb  (ArE  +  Arp)/2  ]}  r£A0Az 


(eqn  A. 38) 


(eqn  A. 39) 


(eqn  AMO) 


(eqn  A.41) 


(eqn  A. 42) 


(eqn  A.43) 
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(eqn  A. 44) 


-  {.5(|Gwb|  +  Gwb) 

+  l,[(Ret)wb  (Arp  +  Arw).  2  ])  rwA0Az 

=  {.5(|Gnb|  -  Gnb) 

+  l/[(Ret)nb  rpA0  ]}  ArpAz 

{.5(|Gsb|  +  Gsb) 

+  l,[(Ret)sb  rpA0  ]}  ArpAz 

{.5(|Gtb|  -  Gtb) 

+  1  [(Ret)tb  Az  ]}  rpArpA0 


(.5(|Gbb|  -  G^b) 

+  l/[(Ret)^b  Az  ])  rpArpA0 


{.5(|Geb|  +  Geb)rp  -  Gebre 
+  rp/[(Ret)£b  (Arp  4-  Arp)/ 2  ]}  A0Az 
+  {.5(|Gwb|  -  Gwb)rp  +  Gu.brw 
+  rp.'[(Ret)wb  (Arp  +  Arw)/2  ]}  A0Az 
+  A^-b  +  Agb  +  Ayb  +  Agb 


p°Pb  V°0pb  AVb/At  -  (Pp  -  Ps)  ArpAz 
-  (p°pb  -  pgq  pb)  COS0p  AVb  /  F 


+  (V^l.j.k-Vri+,.H.k)(I/Re^bAZ 

-(VAH,k)(I/Ret)"'bAZ 

+  (V0n  •  v0s)(l/Ret)nb  ArpAz  (rpA0) 


'  (v0s  *  v0i,j-l,k)  Ret)sb  ArPAz  (rpA0) 


(eqn  A. 45) 


(eqn  A. 46) 


(eqn  A. 47) 


(eqn  A.4S) 


(eqn  A. 49) 


(eqn  A. 50) 


+  %kM-\j-u+i)(1;Re‘)lbArp 

•(\i,R-\i-..k)(l/R^bArp 


and  in  these  equations 


Atpb  —  Arp 


AVb  =  rpbArpbAGAz 

=  rpArpAGAz  =  A\ 

Geb  =  {[(ArpPp  +  ArpPp)  (Arp  +  Arp)]  V 

+  KArpPi+l,j-l,k  +  ArEps),'(Arp  +  drE)]  Vr.  +  ]  jlk» 

Gwb  =  {[(Ar^yPp  +  Arpp-^y) ;  (Ar^y  +  Arp)]  Vf 

w 

+  l(Arwps  +  ArpPj.ij.i^)/  (Arw  +  Arp)]  Vr_^  ]}  /  2 
Gnb  =  .5  pp  (V0n  +  V0S) 

Gsb  =  -5  Ps^VGs  +  VGi,j-l;k) 


Gtb  =  [.5(pT  +  pp)VZt  +  .5(pifj.i>k+j  +  PS>vzitj_ltk+1l/2 

Gbb  =  [.5(pp  +  pB)  VZfe  +  .5(ps  +  Pitj.ifk.i)  vzitj.u]  '  2 
Z-M  omentum: 

[Ape  +  p°pc  AVc/At]  V  = 


(eqn  A. 51) 


(eqn  A. 52) 


(eqn  A. 53) 


(eqn  A. 54) 


(eqn  A. 55) 


(eqn  A. 56) 


(eqn  A. 57) 


(eqn  A.58) 
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(eqn  A. 59) 


AEc  VzEc  +  AWC  vzwc  +  AXc  V2nc 
+  As-'  vzsc  +  ATc  VZtc  +  AgC  VZbc  +  Spe 


where 


AEc  =  i-5(IGecl  -  Gec) 

+  1  KRet)ec(ArE  +  Arp)/2J)  rEA0Az 
AWC  =  (•5(|Gwc|  +  Gwc) 

+  1  f(  Ret\vc  (Arp  +  Arp).  2  J)  rwA0Az 
AXc  =  {.5(|Gnc|  -  Gnc) 

+  l/[(Ret)nc  rpA0  ])  ArpAz 

ASC  =  {-5(IGsc|  +  G$c) 

+  *  [(Ret)sc  rpA0  ])  ArpAz 

ATC  =  {-5(|Gtc|  -  Gtc) 

+  l/[(Ret)tc  Az]}  rpArpA0 

aBc  =  (.5(|Gbc|  -  Gbc) 

+  l,[(Ret)bc  Az  ]}  rpArpA0 

APC  =  f-5dGecl  +  Gec)rp  -  Gecre 

+  rp  [(Ret)ec(ArE  +  Arp)/2  ])  A0Az 
+  i--5(|Gwc|  -  Gwc)rp  +  Gwcrvv 
+  rp  [(Ret)wc(Arp  +  Arw)/2  J>  A0Az 

+  AXC  +  A$c  +  Ajc  4-  Ape 


(eqn  A. 60) 


(eqn  A.61) 


(eqn  A. 62) 


(eqn  A. 63) 


(eqn  A. 64) 


(eqn  A.65) 


(eqn  A. 66) 
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s 


Pc 


P>  V°z  AVc/At  -  (Pp  -  Pg)  rpApAz 

+  (Vr  -Vr  )  (l;  Ret)  c  reA0 

ri  +  l,j,k  ri+  l.j.k-1  te  e 

-  (Vr.  -  V  )(l  Ret)wcrvvA0 
‘t.pk  i.].k-l 


+  (v0i,j+i,k  -  V0i,j-»-  l,k-l>  (i/Ret>n°  ArP 

*  <v0i?j?k  •  v0i,j,k-l)  ( 1/Ret>sc  ArP 
+  (V  -  V  )  (1/Ret)tc  rpArpAG  /  Az 

-  (V^'Vz1>j)k.1)(1^etVrPArPA0 


and  in  these  equations 


Arpc  —  Arp 


AVC  =  rpcArpcABAz 

=  rpArpAGAz  =  AV 

Gec  =  {[(ArpPp  +  ArpPp)  /  (Arp  +  Arp)]  V 

+  [(Arppi+  Lj>k.1  +  ArEpB)  /  (Arp  +  Ar£)]  Vr.+  ^  ^  ] 

Gwc  =  t[(Ar\yPp  +  ArpP\v) '  (ArW  +  Arp)l  Vr 

\v 

+  [(ArwpB  +  ArpPi-l.j,k-l) '  <ArW  +  Arp)l  Yr[]XA  N  1 

Gnc  =  [-5(PN  +  Pp>  V0n 

+  -5^i,j+l,k-l  +  PB>  V0i;j+  l,k-l ''  2 
Gsc  =  [.5(pp  +  ps)  V0S 

+  -5(Pb  +  Pi,j-l,k-l>  V0i,j,k-1‘]  1  2 

Gtc  =  -5  Pp  (Vzt  +  \) 


(eqn  A. 67) 

(eqn  A.6S) 

(eqn  A. 69)  • 

(eqn  A. 70) 

(eqn  A. 71) 

(eqn  A. 72) 

(eqn  A. 73) 

(eqn  A. 74) 


99 


Pressure  Equation: 


ApPp'  -  AePe*  +  AWPW*  t-  ANPN  +  ASPS' 

+  AjPy'  +  AgPg'  -  S  mp  AV 

(eqn  A. 75) 

where 


Ae  -  pe  {reA0Az)“ 

/(Apai-M.j.k+  pcAVai+l.j,k/At) 

(eqn  A. 76) 

A\v  =  Pw  (i\vA0Az)" 

(Apa  —  pwA\’a  At) 

(eqn  A. 77) 

A^-  =  pn  (ArpAz)- 

/<Apbi,j+l.k  +  PnAVbi.j  +  l,k'At) 

(eqn  A.7S) 

A 5  =  ps  (ArpAz)2 

/  (Apb  +  p$AVb/At) 

(eqn  A. 79) 

Ay  =  p^  (rpArpA0)'" 

/(Ap\j,k+i  +  p'4VCi,j,k+l^) 

(eqn  A. SO) 

Ag  =  Pg  (rpArpA0)^ 

!  (Ape  +  pgAVc/At) 

(eqn  A.S1) 

Ap  =  Ap  +  A  yy  +  Ay  4-  Ag  +  Ay  +  Ag 

(eqn  A. 82) 
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2.  THE  FINITE  DIFFERENCE  EQUATIONS  IN  SPHERICAL  COORDINATES 

In  the  spherical  system  the  three  coordinates  are  r.  0.  and  <p.  The  velocities  in 
these  directions  are  Vr,  Vq.,  and  V^.,  respectively.  Unlike  the  rectangular  geometry’ 
where  gravity  only  acted  in  the  z-direction,  here  it  acts  in  all  three  directions  so  an 
appropriate  term  is  included  in  the  r-momentum,  0-momentum.  and  cp-momentum 


equations. 

(pp  -  p°p)AV/At  +  (re"Ge-rw^Gw)  sin(ppA0A(p 

+  (Gn-Gs)rpArpA<p  +  (Gtsin(pt-Gbsin<pb)rpArpA0 

(eqn  A. S3) 

=  SmpAV 


where  the  mass  lluxes  at  the  boundaries  are: 

Ge  =  [(Arppg  +  Arp”pp) 

/  (Arp  +  Arp)]  Vr 

(eqn  A. 84) 

Gw  =  [(Arw~pp  +  Arppw) 

/  (Arp  +  Arw)] 

(eqn  A. 85) 

Gn  =  -5  (Pn  +  PP>  v0n 

(eqn  A. 86) 

Gs  =  -5(Pp  +  Ps)v6s 

(eqn  A. 87) 

Gt  -  .5  (pT  +  pp) 

(eqn  A.8S) 

Gb  =  .5  (pp  +  pB) 

(eqn  A.S9) 

Energy  Equation: 
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(eqn  A. 90) 


[hAp  +  p°p  AV,  At]  hp  =  hA£  hE  +  hAw  hw 

+  ^An^-  h\^-  +  ^Ag  +  ^Aj  hy  +  ^Ag  hg  +  ^Sp 


where 

hAE  =  {.5(|Ge|  -  Ge)  +  l;[(RetPrt)e(rE-rp)]) 
x  rp^sintppAGAtp 

hAw  =  {.5(|GW|  +  Gw)  +  l/[(RetPrt)w(rp-rw)]} 
x  r^y"sin(ppA0A(p 


hAN  =  {.5(|Gnl  -  Gn)  +  1  [<Re,Prt)n  rpsincppABj) 
x  rpArpAcp 


^Ag  =  {.5(|G$|  +  Gn)  +  l,[(RetPrt)s  rpsin(ppAO]} 
x  rpArpAcp 


hAx  =  (.5(|Gt|  -  Gt)  +  l,[(RetPrt)t  rpA<p]} 
x  rpArpsin(p jA0 


hAg  =  {.5(|Gb|  -  Gb)  +  l/[(RetPrt)b  rpA<p]} 


x  rpArpsintpgAG 

hAp  =  {.5(|Ge|  +  Ge)rp2-Gere2  +  rp2,  [(RetPrt)e(r£-rp)]} 
x  sin(ppA0A(p 

+  {.5(|GW|  -  Gw)rp2  +  Gwrw2  +  rp2, [(RetPrt)w  (rp-rw)]} 
x  sin(ppA0A(p 
+  hAN-  +  hAs 

+  {.5(|Gt|  +  Gt)sin(pP  -  Gtsin(pt  +  sin(pp, [(RetPrt)t  rpA(p]} 


(eqn  A. 91) 


(eqn  A. 92) 


(eqn  A. 93) 


(eqn  A. 94) 


(eqn  A. 95) 


(eqn  A. 96) 


(eqn  A. 97) 
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x  rpArpAB 


+  {.5(|Gb|  -  Gb)sin<pP  +  Gbsin(pb  +•  sincpp .[(RetPrt)b  rpAq>]} 
x  rpArpAG 


hSp  =  p°p  h°p  AV  /  At 


(eqn  A. 98) 


The  momentum  equations  are  slightly  more  complex  because  of  the  staggered 
cells  and  the  additional  terms  introduced  by  the  shear  stress  tensor.  The  grid  for  the  r- 
momentum  equation  is  shifted  one  half  cell  in  the  negative  r-direction  and  quantities  in 
this  grid  are  designated  with  an  a  superscript.  Similarly,  the  staggered  grids  for  the  0 
and  z-momentum  equations  are  shifted  one  half  cell  in  the  negative  0  and  z  directions 
from  the  basic  cell  and  these  are  designated  with  b  and  c  superscripts,  respectively. 
Because  of  the  complexity  of  the  equations,  variables  with  i.  j,  and  k  subscripts  are 
used  to  identify  the  grid  location  of  many  variables.  The  following  equations  define  the 
location  of  these  subscripted  variables: 


(eqn  A. 99) 


Vr„.2  =  X 


r. 


(eqn  A.  100) 


w 


(eqn  A.  101) 


^  (pb  vcpi,j,k 


(eqn  A.  102) 


r. 


2  . 


(eqn  A.  103) 


w 
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rp  =  rI 


(eqn  A.  104) 


Arp  =  Aq 

The  finite  difference  momentum  equations  are: 
R-M  omentum: 


[Apa  +  P °pa  AVa/At]  Vrpa  = 

Ana  Vr  2a  +  Awa  Vr  2a  +  Ava  Vr 
b  rp  VV  rw  .\  r^-a 


+  Aca  V  +  Aya  V 

^  rSa  1  rya 


ABa  VrBa  +  Spa 


where 


Apa  -  {.5(|Gea|  -  Gea)  +  l,[(Ret)ea  Arp  ]} 
x  re“sin(ppA0A(p 

Awa  =  {.5(|GVV^|  +  Gw a)  +  l,[(Ret)u^  Arw  ]} 
x  ryj-sintppAOAtp 

ANa  =  ^5(lGnal  *  Gna)  +  ^'[(^t^n3  rwsin<PpA®  ]} 
x  rwArpaA(p 


A^a  -  {.o(|Gsa|  +  G$a)  +  l/[(Ret)sa  rvvsin(ppA0  ]} 
x  rwArpaA(p 

Aya  =  {.5(|Gta|  -  Gta)  +  l/[(Ret)ta  rwA(p  ]) 
x  rwsin(p-pArpaA0 

Apa  =  {.5(|Gba|  -  Gpa)  +  1  [(Ret)ba  rwA(p  ]} 


(eqn  A.  105) 


(eqn  A.  106) 


(eqn  A.  107) 


(eqn  A.  108) 


(eqn  A.  109) 


(eqn  A.  110) 


(eqn  A.lll) 


(eqn  A.  1 12) 
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X  rwsin(ppArpaA0 


Ap  =  {.5(|Gea|  +  Gea)rw2  -  Gearp2 

+  rw2  [(Ret)ea  Arp  ]}  siruppA0A<p 
+  {-5(|GVV^|  *  G^n)r-.j  4-  Gw arw2 
+  r-.j/[(Ret)^  Arw2  ]}  sin(ppA0A(p 
+  ANa  +  Asa 

p 

4-  (.5(|Gta|  4-  Gta)sin<p  -  Gtasin(pt 
4-  sirup  p  [(Ret)ta  rwA<p]}  rwArpaA0 
4-  (.5(|G^a|  -  G^a)sin(p^  4-  G^asirup^ 
4-  sirupp/[(Ret)^a  rpA(p]}  rpArpaA0 


Spa  =  P°pa  V°rpa  AVa/At 

-  (rp“Pp  -  r\y~P\y)  siruppA0A(p 

-  (p°pa  -  Ppq  pa^  sin0p  sirupp  AVa  /  F 

+  (re2V  -  rw2Vr  ) 
c  Av 

x  ( 1/Ret)ea  sin<PpA0A(p  Arp 


Vr  ) 


x  (l/Ret)u-a  sin(ppA0A(p/Ar^y 


+  ( V0i,j  4- 1  ,k  •  V0i- 1  ,j  4-  1  ,k>( 1  Ret>na  rvvA(P 

-  <V0i.].k  *  V0i-l,j.kX1/Ret)sa  rwA(P 

+  (\pi,j,k4- 1  '  ^(pi-l,j.k4- 1)^  RetVa  rwsin(Pt^0 

-  <V(pifj,k  -  V9i-l^)(1/RetV  rwsin(PbAG 


and  in  these  equations 


(eqn  A.  1 1 3) 


(eqn  A.  1 14) 
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Arpa  -  (Arp  4-  Ar^y)  /  2 


(eqn  A.  1 15) 


AVa  =  rpa2  sin<PpArpaA9A(p 

=  rw2  sinq)p  (Arp  4-  Arw2)  A0A(p  /  2 

(eqn  A.  1 16) 

Gea  =  -5  Pp  (reVre  +  rxvVrw)  '  rP 

(eqn  A.l  17) 

Gw*  =  .5  pw  (ruA  +  ri- 1  Vr-_  j  ■  R)  •  rW 

(eqn  A.  11 8) 

Gna  =  [.5(pN  +  pp)  ArwV0n 

+  -5(Pi-l,j+l,k  +  P\y>  ArPv0i-lj+ljJ 

/  (Arp  4-  Ar^y) 

(eqn  A.  1 19) 

Gsa  =  [.5(pp  +  ps)  ArwV0s 

+  -5(pw  +  pm, j.i,k)  Arpvei-i,j,kl 

/  (Arp  +  Arw) 

(eqn  A.  120) 

Gta  =  [.5(Py  4-  Pp)  Ar^yV^j 

+  *5(Pi-lfj,k+l  +  P\v)  ArPV(pi-l,j,k+l^ 

/  (Arp  4-  Ar\y) 

(eqn  A.  121) 

Gba  =  [.5(pp  +  p0)  Ar^yV^p 

+  -5(PW  +  Pi.ij.k-i)  ArPv<pi-lj,kl 
/  (Arp  4-  Ar^y) 

(eqn  A.  122) 

0- Momentum: 
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[Apb  +  p-pb  AVb,  At]  Vgpb  = 

AEb  V0Eb  +  AWb  V0Wb  +  ANb  v0Nb 
A  A^b  \  Qgb  A  Ayb  Vp-pb  A  Apb  \r0 j^b  A  Spb 

where 

Apb  =  {.5(|Geb|  -  Geb) 

+  1  [(Ret)eb  (Arp  A  Arp);2  ]}  rp2sin<ppA0A<p 

AWb  =  C-5(|Owb|  A  Gwb) 

+  1  [(Ret)u.b  (Arp  A  Ar^y)  2  ]]  r^y"sin(ppA0A(p 

A\b  =  (-5(lGnbl  '  Gnb) 

A  l;[(Ret)nb  rpA0  ])  rpArpAcp 

ASb  =  {.5(|Gsb|  +  Gsb) 

A  l/[(Ret)sb  rpAO  ]}  rpArpA(p 

Ajb  =  {.5(|Gtb|  -  Gtb) 

+  l/[(Ret)tb  rpA<p  ]}  rpsin<pjArpA0 

Apb  =  {.5(|Gpb|  -  Gpb) 

+  l,[(Ret)pb  rpA(p  ]}  rpsin(ppArpA0 

Ap  =  {.5(|Geb|  +  Geb)rp2  -  Gebre2 

A  rp2,  [(Ret)eb  (Arp  A  Arp), '2  ]}  sin(ppA0A(p 
A  (;5(|Gwb|  -  Gwb)rp2  A  Gwbrw2 
A  rpi,[(Ret)wb  (Arp  A  Arw)/2  ]}  sin(ppA0A(p 
+  A>yb  +  Agb 


(eqn  A.  123) 


(eqn  A.  124) 


(eqn  A.  125) 


(eqn  A.  126) 


(eqn  A.  127) 


(eqn  A.  12S) 


(eqn  A.  129) 


(eqn  A.  130) 
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4-  {.5(|Gtb|  4-  Gtb)sin<pF  -  Gtbsin<pt 
sin(pp  [(Ret)tb  rvvA<p]}  rpArpAG 
+  {.5(|G^b|  -  G^b)sin(p^  4-  G^bsintp^ 
4-  sin(pp,[(Ret)^b  rwAcp]]  rpArpAG 


Spb 


p  pb  \  Qpb  AVb,  At  -  (Pp  -  P^)  rpArpAq) 

-  (P°pb  '  pEq,Pb)  C0S®P  sin(Pp  AVb  i  F 

+  (Vri+1.i.k-Vri+.j-.P(1Re‘'«br^ 

'  (Vri.j.k'Vri.j-l.kH‘  RetVbrwA<P 

+  (v0n  -  Vgs)(l,Ret)nb  rpArpA<p  ,  (rpsin<ppAe> 
'  (V6s-V0i  j.j  k)(l/Ret)sb  rpArpA<p/(rpsin<ppAe) 

+  (V<pi,j,k+1  -  Vj-1, k+l)<''Ret)tb  sin<PtArP 
•  <V<pi.i.k  -  Vj-l.k)  C'RetV  sin<PbArp 


and  in  these  equations 


Atpb  —  Arp 


A\  b  —  rpbsintpp  Arpb  AG  A(p 

=  rpsintppArpAGAtp  =  AV 

Geb  =  [[(ArpPg  +  Ar^pp)  /  (Arp  +  Ar^)]  ^  ^ 

+  l(Arppi+1J.i  k  +  ArEps)/(Arp  +  ArE)J  Vr.  +  f  R 

Gwb  =  ([(Arwpp  4-  Arppw)  /  (Arw  4-  Arp)]  Vf  _ 

\\ 


(eqn  A.  13 1) 


(eqn  A.  132) 


(eqn  A.  133) 


(eqn  A.  134) 


(eqn  A.  135) 
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+  l/[(Ret)$c  rpsin<pbA0  ]}  rpArpA<p 


(eqn  A.  144) 


Ajc  =  {.5(|Gj.c|  -  G^c) 

+  l,  [( Ret)tc  rpA<p  ]}  rpsin(P'|-ArpA0 

Age  =  {.5(|Gbc|  -  Gbc) 

+  l;[(Ret)gc  rpA(p  ]}  rpsin(pgArpA0 

Ap  =  {.5(|Gec[  +  Gec)rp2  -  Gecre2 

+  rp~  [(Ret)ec  (Arp  +  Arp),2  ]}  sin<pbA0A<p 
+  {.5(|Gwc|  -  Gwc)rp-  +  Gwcrw2 
+  rp2,[(Ret)wc  (Arp  +  Arw)/2  ]}  sin<pbA0A(p 
+  A\-c  +  A^c 

+  {.5(|Gtc|  +  Gtc)sin(p^  -  G^csin(pg 
+  sin(pb  [(Ret)tc  rpA(p]]  rpArpA0 

+  {-5(lGbcl  *  Gbc^sin(pk-1  +  Gbcsin(pBb 
+  sin(p^_p'[(Ret)bc  rpA(p]]  rpArpA0 

Spe  =  p  pc  V^pc  AVc/At  -  (Pp  -  Pg)  rpArpA(p 

*  (P°pc  ‘  PEq,Pc)  [sin0p.'ABS(sin0p)]  cos(pb  AVC  /  F 

+  (Vfi+  l.j.k  '  Vfi+  U.k-F  (,'Ret)eC  reSinlpbAe 
'  (Vr- :  t  ‘  V,  :  )  rwsin<PbAe 

1 ,]  .K  1,] ,  K."  1 

+  <v0i,j  -h  l,k  -  v0i.j  H-  < 1  'Ret>nc  ArP 

‘  (v0i,j,k  *  v0i,j,k-l)  (1/Ret)scArp 
+  (V(pt  sin<pt  -  sin<pb  )  (1/Ret)tc  ArpA0  /  A(p 


(eqn  A. 145) 


(eqn  A.  146) 


(eqn  A.  147) 


(eqn  A.  148) 
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-  <v(,)b  sinlPb  -  v<pi,i,k-l  sinlPk-l  )  (>'Ret)bc  ArPA9  '  AlP 


and  in  these  equations 
Arpc  =  Arp 


{eqn  A.  149) 


AVC 


rpc2sin(ppcArpcA0A(p  • 

=  fp” sintp^Atp  A0  A(p 


(eqn  A.  150) 


Gec 


([(ArpPp  +  Arppp)  /  (Arp  4-  Arp;)] 

+  KArpPi+  l,j,k-l  +  ArEPB>  ■'  <ArP  +  ArE>]  Vri+]  j  k.i 


(eqn  A.  151) 

])  f  - 


{[(^r\yPp  +  ^rpP\v) '  (^rW  ^  ^rP^  \ 

w 

+  [(ArwpB  +  ArpPi-l,j,k-l) '  <ArW  +  Arp)] 


]} 


2 


(eqn  A. 152) 


Gnc  =  1*5(Pn  +  Pp)  V0n 

(eqn  A. 153) 

+  ■5^Pi,j+  l,k-l  +  Pb)  ^0i,j  +  l,k*r^  2 

Gsc  =  E-5<Pp  +  Ps)  V0s 

(eqn  A.  154) 

+  .5(PB  +  Pi,j-l,k-l)  v0ifj,k-H/  2 

Gtc  —  *5  Pp  (A  ^  (p^)  (cc[n  A.  155) 


Gbc  =  .5  pB  (V^  +  V^j  j  k_,  ) 

Pressure  Equation: 

ApPp'  =  AePe'  +  AWPW'  +  ANPN'  +  ASPS' 
+  atpt'  +  abpb'  -  s  mP  AV 


(eqn  A.  156) 


(eqn  A. 157) 
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where 


AE  ”  Pe  (re2sin(ppA0A(p)2 

;(Apai+i.u  +  p=ivai+i.j,k'A') 

(eqn  A.  158) 

AW  =  Pw(rw~sin(ppA0A(p)2 

>  (Apa  +  PvvAVa  At) 

(eqn  A.  159) 

AN  =  Pn  (rpArpA(p)2 

/<ApCi.j+l.k  +  pnAVVl,k/A‘> 

(eqn  A.  160) 

As  =  Ps  (rpArpA(p)2 

/  (Apb  +  psAVb/At) 

(eqn  A. 161) 

aT  =  Pt  (rpsin(ptArpA0)2 

/(Apci.j,k+I  +  p*4VCg,k+  I/At) 

(eqn  A.  162) 

AB  =  Pb  (rpsin(pbArpA0)2 

'  (Apc  +  pbAVc/At) 

(eqn  A.  163) 

Ap  =  AE  +  Aw  +  Ax  +  As  +  At  +  Ag 

(eqn  A.  164) 
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APPENDIX  B 

FORTRAN  LISTING  OF  THE  VIEW  FACTOR  PROGRAM 
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***  A  GENERAL  FORTRAN  PROGRAM  TO  CALCULATE  3-DIMENSIONAL  SURFACE 
RADIATION  VIEW  FACTOR  MATRIX  COEFFICIENT 
***  THE  SYSTEM  INCLUDES  AN  ENCLOSURE  AND  ANY  NUMBER  OF  HEAT  SOURCES 
OF  SINKS  INSIDE  THE  ENCLOSURE 

IMPLICIT  REAL*8 (A-H , O-Z) 

C0MM0N/BL4/  WVFLR(3 , 3 , 3 , 3) , WVFLRE (3 , 3 , 4 , 3) , WVFLF ( 3 , 3 , 4 , 3) , 

&  WVFLT ( 3 , 3 , 4 , 3 ) , WVFRRE (3 , 3 , 4 , 3) , WVFRF (3 ,3, 4, 3) , WVFRB (3 , 3 , 4 , 3 ' 

&  WVFRT ( 3 , 3 , 4 , 3 ) , WVFRL  (3,3,3 ,3) , WVFFL (4 , 3 , 3 , 3 ) , WVFFB( 4 , 3 , 4 , 3 
&  WVFFT ( 4 , 3,4,3) , WVFFRE (4 , 3,4,3) , WVFFR ( 4 , 3 , 3 , 3 ) , WVFBT { 4 , 3 , 4 , 3 
&  WVFBL (4 ,3,3,3), WVFBRE ( 4 , 3,4,3) , WVFBF (4 , 3 , 4 , 3) , WVFBR(4 , 3 , 3 , 3 ' 

Sc  WVFTL(4 ,3,3,3)-,  WVFTRE(4 ,3,4,3)  . WVFTF (4 , 3 ,4 , 3)  ,WVFTR(4,3 ,3 ,3, 

Sc  WVFRET (4 , 3 , 4 , 3 ) , WVFREF (4 , 3 , 4 , 3 ) , WVFRER(4 ,3,3,3) , WVFTB (4 , 3 , 4 , 3 ) , 
Sc  WVFREL (4 ,3,3,3) , WVFREB (4 , 3,4,3) , WVFLB (3 , 3 , 4 , 3 ) 

COMMON/ BL 5/ 

Sc  VFHSR ( 3,3)  , VFHSF (4,3)  ,VFHSRE(4,3)  ,VFHST(4,3)  ,VFHSB(4,3)  , 

,3) , VFTHS (4,3) ,VFBHS(4,3) , 


C 

c 


Sc  VFRHS  (3,3)  ,  VFFHS  (4,3)  ,  VFREHS  (4 
Sc  VFHSL  (3,3)  ,  VFLHS  (3,3 


COMMON  /BL6/  VFLHT (3 , 3 ) , VFRHT (3 , 3) , VFFHT (4 , 3 ) , VFREHT (4 , 3 ) , 
“  “  , VFRHR (3,3) , VFREHR (4,3) , VFTHR (4,3) , VFBHR (4,3) , 

, VFFHL (4 , 3 ) , VFREHL (4,3) , VFTHL (4,3), VFBHL (4,3) , 


Sc  VFFHRl 

(3,3) ,VFRHR< 

(3,3) 

Sc  VFLHLl 

3,3), VFFHL l 

4,3 

&  VFLHRE (3,3), VFRHRE ( 3 , 

&  VFLHFI 

(3,3) , VFRHF  < 

(3,3 

&  VFLHBI 

3,3) ,VFRHB< 

[3,3) 

&  VFTHT ( 

4,3) 

COMMON  /BL7 /  VFHTL ( 3 , 3 ) , VFHTR(3 , 3 ) , VFHTF(4 , 3) , VFHTRE (4 , 3) , 

&  VFHRF (3,3) ,VFHRR(3 , 3) , VFHRRE (4 , 3 ) , VFHRT (4 , 3 ) , VFHRB (4 , 3 ) , 

&  VFHLL (3,3). VFHLF (4,3) ,VFHLRE(4,3) ,VFHLT(4,3) ,VFHLB(4,3) , 

Sc  VFHREL  (3 ,3)  ,  VFHRER(3 , 3)  ,VHRERE(4,3)  ,VFHRET(4,3)  ,VFHREB(4,3)  , 
Sc  VFHFL  (3,3),  VFHFR  (3,3),  VFHFF  (3,3),  VFHFT  (4 ,  3 ) ,  VFHFB  (4,3). 

Sc  VFHBL  (3,3),  VFHBR  (3,3)  ,VFHBF(4,3)  ,VFHBRE(4,3)  ,VFHBB(4,3)  , 

Sc  VFHTT  (4 , 3 ) 

COMMON  /BL8/  X(22) ,Y(18) ,Z(18) ,NOD(22, 18,18) , 

&  RX(5) ,RY(4) ,RZ(4) ,AREA(67) ,ZX(5) ,ZY(4) ,ZZ(4) 

COMMON  / BL 9 /  SWVFRE (4 , 3) , SWVFL (3 , 3) , SWVFR(3 , 3 ) , SWVFF (4 , 3 ) , 

Sc  SWVFT(4,3)  ,SWVFB(4,3) 

COMMON  /BL10/  NZ , DX , DY , DZ , DXY , DYZ , DZX , WC , DC , HC 

COMMON  /BL1/  NI ,NJ ,NK,NIM1 ,NJM1 , NKM1 ,NIM2 ,NJM2 ,NKM2 , 

Sc  MI ,  MJ  ,  MK ,  MI  I ,  M J  J  ,  MKK ,  MIM ,  MlP  ,  M JM ,  M JP ,  MKM ,  MKP  , 

Sc  MI  IM ,  MI  I P  ,  M  J  JM ,  M  J  JP ,  MKKM ,  MKKP , 
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c 


&  IREGN1 , IREGN2 , IREGN3 , IREGN4 , IREGN5 , IREGN6 , IREGN7 
&  HREGN1 , MREGM2 , MREGN3 , MREGN4 , MREGN5 , MREGN6 , MREGN7 


C 


C 


COMMON  /BL2/  IB , IE , IBM1 , IBP1 , IEM1 , IEP1 , 
&  JB , JE , JBM1 , JBP1 , JEM1 , JEP1 , 
&  KB , KE , KBM1 , KBP 1 , KEM1 , KEP 1 


COMMON/ BL 11/ 

& 

& 

& 


MIIZ (9) ,MJJZ(9) , MKKZ(9 ) , IS (6) ,LTYPE(9,6) , 

LI (9) ,LJ(9) ,LK(9) ,AYZ(9) , AXY(9 ) , AZX(9 ) , 

NHSZ , ITHIN ( 9 ) , JTHIN( 9 ) . KTHIN(9 ) , 

IHSB( 9 ) , NHSW(9 ) , JHSB (9 ) ,NHSD (9 ) , KHSB (9 ) , MHSH(9 ) 


COMMON/BL3/  VFMXR(67 , 67 ) , SMXVFW( 67 ) , SMXVFH(67 ) 


********************************************************************* 


***  THE  COORDINATE  SYSTEM  IS  AS  FOLLOWS; 

X-DIRECTION  IS  FROM  LEFT  TO  RIGHT 

Y-DIRECTION  IS  FROM  REAR  TO  FRONT 

Z-DIRECTION  IS  FROM  BOTTOM  TO  TOP 
NEGATIVE  GRAVITY,  -G  ,  IS  IN  POSITIVE  Z-DIRECTION 

*************************** ****************************************** 

***THERE  ARE  6  INTERIOR  WALLS  AND  EACH  WALL  IS  DIVIDED  INTO  CERTAIN 
WALL  ZONES 

***  TO  DISTINGUISH  INTERIOR  WALLS,  EACH  WALL  HAS  A  DESIGNATED  SYMBOL 


LEFT 

WALL 

IS 

REGION 

1, 

REPRESENTED 

BY 

LETTER 

L 

RIGHT 

WALL 

IS 

REGION 

2, 

REPRESENTED 

BY 

LETTER 

R 

REAR 

WALL 

IS 

REGION 

3, 

REPRESENTED 

BY 

LETTER 

RE 

FRONT 

WALL 

IS 

REGION 

4, 

REPRESENTED 

BY 

LETTER 

F 

BOTTOM 

WALL 

IS 

REGION 

5, 

REPRESENTED 

BY 

LETTER 

B 

TOP 

*** 

WALL 

IS 

REGION 

6, 

REPRESENTED 

BY 

LETTER 

T 

HEAT  SOURCE 

IS 

REGION 

7, 

REPRESENTED 

BY 

LETTER 

HS 

IF  THE  HEAT  SOURCE  IS  TREATED  AS  A  SUBJECT  WITH  6  SURFACES,  THEN 
LEFT  SURFACE  OF  THE  HEAT  SOURCE  IS  REPRESENTED  BY  LETTER  HL 

RIGHT  -  SURFACE  OF  THE  HEAT  SOURCE  IS  REPRESENTED  BY  LETTER  HR 

REAR  SURFACE  OF  THE  HEAT  SOURCE  IS  REPRESENTED  BY  LETTER  HRE 

FRONT  SURFACE  OF  THE  HEAT  SOURCE  IS  REPRESENTED  BY  LETTER  HF 

BOTTOM  SURFACE  OF  THE  HEAT  SOURCE  IS  REPRESENTED  BY  LETTER  HB 

TOP  SURFACE  OF  THE  HEAT  SOURCE  IS  REPRESENTED  BY  LETTER  HT 


***  IF  ONLY  TWO  SURFACES  ARE  CONSIDERED  FOR  HEAT  SOURCE  THEN  CHOOSE 
TWO  OPPOSITE  SURFACES  SUCH  AS  HL  AND  HR  AND  ASSUME  ZERO  DISTANCE 
BETWEEN  THESE  TWO  SURFACES. 


***  THE  VIEW  FACTOR  CAN  BE  SORTED  AS 

(1)  INTERIOR  WALL  SURFACE  VS  WALL  SURFACE 

(2)  INTERIOR  WALL  SURFACE  VS  HEAT  SOURCE  SURFACE 

(3)  INTERIOR  WALL  SURFACE  VS  WHOLE  HEAT  SOURCE 


*** 


*** 


*** 


EACH  WALL  SURFACE  IS  DIVIDED  INTO  SERVERAL  WALL  ZONES 
FOR  INSTANCE,  THE  LEFT  WALL  L,  LOCATED  AT  X=0  OR  1=1, 

IT  CAN  HAVE  MJ  DIVISIONS  IN  J  DIRECTION  AND  MK  DIVISIONS  IN 
K  DIRECTION,  THEREFORE,  THERE  IS  MJ*MK  ZONES  ON  LEFT  WALL 
ACCORDINGLY, 


RIGHT 

WALL 

HAS 

MJ1*MK1 

ZONES 

AND 

MJ1 

AND 

MJ 

MAY 

HAVE 

EQUAL 

NO. 

AND 

MK1 

AND 

MK 

MAY 

HAVE 

EQUAL 

NO. 

REAR 

WALL 

HAS 

MI  *MK2 

ZONES 

AND 

MK2 

AND 

MK 

MAY 

HAVE 

EQUAL 

NO. 

FRONT 

WALL 

HAS 

MI 1*MK3 

ZONES 

AND 

Mil 

AND 

MI 

MAY 

HAVE 

EQUAL 

MO. 

AND 

MK3 

AND 

MK 

MAY 

HAVE 

EQUAL 

NO. 

BOTTOM 

WALL 

HAS 

MI2*MJ2 

ZONES 

AND 

MI2 

AMD 

MI 

MAY 

HAVE 

EQUAL 

NO. 

AND 

MJ2 

AND 

MJ 

MAY 

HAVE 

EQUAL 

NO. 

TOP 

WALL 

HAS 

MI3*MJ3 

ZONES 

AND 

MI3 

AND 

MI 

MAY 

HAVE 

EQUAL 

NO. 

AND 

MJ3 

AND 

MJ 

MAY 

HAVE 

EQUAL 

MO. 

NORMALLY  THE  WALL  ZONES 

IS  DIVIDED  IN 

SUCH  WAY  SO  THE 

HEAT 

SOURCE  IS  ALIGNED  WITH  ONE  OR  FEW  WALL  ZONES 
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***  AFTER  THE  WALL  ZONES  ARE  ASSIGNED  THEN  ALL  ZONES  IN  ALL  WALL 
SURFACES  ARE  GIVEN  AN  INDEX  NUMBER 

***IF  THERE  ARE  MI  DIVISIONS  IN  X-DIRECTION 

MJ  DIVISIONS  IN  Y-DIRECTION 

AND  MK  DIVISIONS  IN  Z-DIRECTION,  THEN  FOR  A  GENERAL  CASE 

THERE  ARE  MJ*MK  ZONES  IN  LEFT  WALL  AND  INDEXED  FROM  1  TO  MJ*MK 

MJ*MK  ZONES  IN  R  WALL  AND  INDEXED  FROM  MJ*MK+1  TO  2*MJ*MK 

MI*MK  ZONES  IN  RE  WALL  AND  INDEXED  FROM  2*HJ*MK+1  TO  2*MJ*MK+MI*MK 

MI*MK  ZONES  IN  F  WALL  AND  INDEXED  FROM  2*MJ*MK+MI*MK+1  TO 

2*(MI+MJ)*MK 

MI*MJ  ZONES  IN  B  WALL  AND  INDEXED  FROM  2*(MI+MJ)*MK  +1  TO 

2  * ( MI +M J ) *MK+M I *MK 

MI*MJ  ZONES  IN  T  WALL  AND  INDEXED  FROM  2* (MI+Mj) *MK+MI*MK+1  TO 

2* (MI *MJ+MI*MK+M J*MK) 

***  FINALLY  THE  HEAT  SOURCE  IS  THE  LAST  ZONE  AND  INDEXED  AS 

2  * ( M I *M J+M J  *MK+M I *MK ) + 1 

***  IF  MI=4 ,  MJ=3  AND  MK=3 ,  THEN  THERE  ARE  2* (4*3+3*3+3*4)=66 
WALL  SURFACE  ZONES  AND  1  HEAT  SOURCE  ZONE 

IF  WE  DIVIDE  ONE  WALL  SURFACE  INTO  4*3  ZONES,  AND  THE  HEAT  SOURCE 
CAN  BE  VIEWED  THROUGH  THE  WALL.  IT  IS  SEEN  TO  OCCUPIED  THE  ZONE 
OF  (2,2). 

IF  THE  RADIATION  ZONE  OF  HEAT  SOURCE  IS  TREATED  AS  AN  INFINITE 
THIN  SHEET  OF  PLANE  THEN  WE  HAVE  ONLY  TWO  SURFACES  IN  THE  HEAT 
SOURCE  AND  IT  CAN  BE  CONSIDERED  AT  THE  INTER  FACE  OF  ZONE  (2,2) 
AND  (3,2)  AND  THE  WHOLE  AREA  FACES  TO  THE  LEFT  TANK  WALL  AT  THE 
ZONE  OF  MJ=2  AND  MK=2. 

***  THE  INDEX  OF  EACH  ZONE  IN  A  WALL  OF  4*3  ZONES  IS  ASSIGNED  AS 


ABOVE  THE  HEAT  SOURCE,  KHT  TO  NK 


SAME  LEVEL  AS  HEAT  SOURCE,  KHB  TO  KHT 


BELOW  THE  HEAT  SOURCE,  2,  TO  KHB 


(1,3) 

(2,3) 

(3,3) 

(4,3) 

(1,2) 

T2727 

"(3727 

14^7 

(1,1) 

T27l7 

7TT7 

TO  1ST  ZONE,  LEFT  OF  HEAT  SOURCE,  RIGHT  OF  HEAT  SOURCE,  4TH  ZONE 
TO  ANOTHER  SIDE  OF  THE  WALL 


THE  STRUCTURE  OF  MATRIX  IS 


J=L 

I=L 

I=R 

I=RE 

I=F 

I=B 

I=T 

I=HS 


, R  , RE  , F  , B  , T  ,  HS.  TOTAL  IS  NZ  TERM 


THE  ARRAY  IS  LAID  OUT  AS  FOLLOWS 

L ( 1 , 1 ) ( 1 »  2 ) , . . ( 1 , MK ) , ( 2 . 1 ) . . . ( 2 , MK ) , ( M J , 1 ) . . ( M J , MK ) 

R  IS  FROM  (1,1) . . .TO. . . (MJ,MK)  OR  FROM  MJ*MK+1  TO  2*MJ*MK 
RE  IS  FROM  (1,1) . . .TO. . . (MI,MK)  OR  FROM  2*MJ*MK+1  TO  2*MJ*MK 

+MI*MK 

F  IS  FROM  (1,1).. .TO. ..(MI, MK)  OR  FROM  2* (MJ*MK)+MI*MK+1  TO 

2* (MI+MJ ) *MK 

B  IS  FROM  (1,1) . . .TO. . . (MI,MJ)  OR  FROM  2*(MI+MJ)*MK+1  TO 

2* (MI+MJ ) *MK+MI*MJ 

T  IS  FROM  (1,1) . . .TO. . . (MI,MJ)  OR  FROM  2*(MI*MJ)*MK+MI*MJ+1 

TO  2*(MI*MJ+MJ*MK+MK*MI) 

HS  HAS  1  ZONE  TO  2*(MI*MK+MJ*MK+MI*MJ)+1 


***  ALL  VARIABLE  NAMES  USED  IN  THE  INPUT  DATA  STATEMENT  ARE  THE  SAME 
ONES  USED  IN  MAIN  PROGRAM 

***  WC  :  WIDTH  OF  THE  TANK,  IN  X-DIRECTION,  (FT) 

DC  :  DEPTH  OF  THE  TANK,  IN  Y-DIRECTION,  (FT) 


115 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


HC 

***  ni 
NJ 
NK 

***  AREA ( 
***  NHSZ 
***  LTYPE 
***  IHSB 
JHSB 
KHSB 
***  NHSW 
NHSD 
NHSH 
***  NZ  : 
***  MI 
MJ 
MK 
***  LI 
LJ 
LK 

*  MIIZ 
MJJZ 
MKKZ 

*  ITHIN 
JTHIN 
KTHIN 


HEIGHT  OF  THE  TANK,  IN  Z-DIRECTION, 
TOTAL  NUMBER  CELLS  IN  X-DIRECTION 
TOTAL  NUMBER  CELLS  IN  Y-DIRECTION 
TOTAL  NUMBER  CELLS  IN  Z-DIRECTION 


(FT) 


)  :  SURFACE  AREA  OF  RADIATION  ZONES  (FT**2) 

:  #  OF  HEAT  SOURCES 

()  :  TYPE  OF  HEAT  SOURCE  SURFACES,  1  FOR  ACTIVE 

STARTING  CELL  NUMBER  FOR  EACH  HEAT  SOURCE  IN  X-DIRECTION 

Y-DIRECTION 
Z-DIRECTION 

NUMBER  OF  CELLS  FOR  EACH  HEAT  SOURCE  IN  X-DIRECTION 

Y-DIRECTION 
Z-DIRECTION 

TOTAL  NUMBER  OF  SURFACE  ZONES  USED  IN  RADIATION  EXCHANGE 
NUMBER  OF  ZONES  IN  X-DIRECTION 

Y-DIRECTION 
Z-DIRECTION 

NUMBER  OF  CELLS  FOR  EACH  ZONE  IN  X-DIRECTION 

Y-DIRECTION 
Z-DIRECTION 

LOCATION  OF  THE  HEAT  SOURCE,  ZONE  NUMBER  IN  X-DIRECTION 

ZONE  NUMBER  IN  Y-DIRECTION 
ZONE  NUMBER  IN  Z-DIRECTION 
0  OR  1  ;  ZERO  OR  1  ZONE  SPACE  BETWEEN  TWO  OPPOSITE 
SIDES  OF  A  HEAT  SOURCE/SINK  IN 
X ;  ( I )  ,  Y;(J),  AMD  Z;(K)  DIRECTIONS 
IF  ITHIN=JTHIN=KTHIN=1  MEANS  A  RECTANGULAR  SHAPE  HEAT 
SOURCE/SINK 

IF  ITHIN=JTHIN=KTHIN=0  MEANS  AN  INFINITE  THIN  SHEET  OF 
HEAT  SOURCE/SINK  IN  ALL  3  DIMENSIONS 

'k'k'k'k'k'k 

js************K*K*******K&K*********&***K*****&**jt******jz****K*****&K* 

$$$$$$$$$$$$$$$$$$$$s$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$s$$$$$$ 

$  USER  SHOULD  ASSIGN  VALUES  FOR  MI,MJ,MK,  MIIZ( ) ,MJJZ( ) ,  MKKZ(),$ 

$  WC , DC , HC ;  NI.NJ,MK,  $ 

$  NHSZ,  LTYPE ()  AND  $ 

$  IHSB, JHSB, KHSB,  NHSW , NHSD , NHSH 

$  THESE  VARIABLES. WILL  BE  USED  IN  MAIN  PROGRAM  ALSO  $ 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$S$$$$$$$$$$$$$$$$ 


*** 


$$$$$$$$$$$$$$$$$$$ 
WC=40 . 2 
DC=17 . 

HC=17  . 

NI  =  22 

NJ=18 

NK=18 

MI  =4 

MJ=3 

MK=3 

NHSZ=1 

LTYPE (1,1)=1 
LTYPE ( 1 , 2 )=1 
LTYPE ( 1 , 3 )  =  1 
LTYPE (1 ,  4)=1 
LTYPE  1,5) =1 
LTYPE ( 1 , 6)=1 
MIIZ ( 1 )=2 
MJJZ ( 1 ) =2 
MKKZ ( 1 )  =  2 

$$$$$$$$$$$$$$$$$$$$$$ 


***  READ  INPUT  DATA 
***  READ  #  1 
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nnnn  n  nnnn  nnno  nnnnnn  noon  non  n  nnnn 


READ ( 5 ,  *)  WC , DC , HC , MI , N J , NK 
WRITE (6,21)  WC , DC , HC , NI , NJ , NK 
21  FORMAT ( 5X, ' WC  =',E11.4,'  FT  1  ,  3X ,  '  DC  =  '  ,  Ell .  4  ,  1  FT',3X, 
Sc  1  HC  ='  Ell  4  1  FT1  / 

Sc  5X,'NI  =  '  ,'l3,6x' 'NJ  =  '  , 13 , 6X ,  1  NK  -l  ,13,//) 

***  READ  #  2 


READ (5 ,*)  NHSZ 
WRITE (6,31)  MHSZ 

31  FORMAT (5X, 'TOTAL  NUMBER  OF  HEAT  SOURCES ,  NHSZ  :',I2,//) 

'k'k'k 

******  IF  NHSZ  >  1,  THEN  READ  NHSZ  SET  OF  CARDS  FOR  READ  GROUP  2  TO  4 
*** 

DO  11  1=1, NHSZ 
***  READ  #  3 


READ (5,*)  LTYPE (1,1), LTYPE (1,2), LTYPE (1,3), LTYPE (1,4), LTYPE (1,5) , 
Sc  LTYPE  (1,6; 

***  READ  #  4 


***  READ  POSITION  AND  SIZD  DATA  FOR  HEAT  SOURCE 

READ (5,*)  IHSB ( I ) , NHSW ( I ) , JHSB ( I ) , NHSD ( I ) , KHSB ( I ) ,NHSH(I) 
***  READ  #  5 


READ ( 5 , *)  MIIZ(I) ,MJJZ(I) ,MKKZ(I) 
***  READ  #  6 


READ ( 5 ,  *)  I THIN ( I ) , JTHIN ( I ) , KTHIN ( I ) 


12 


WRITE (6, 12)  I , LTYPE (I , 1 ) , LTYPE (I , 2 ) , LTYPE (1,3), LTYPE ( I ,4) , 
Sc  LTYPE  (1,5),  LTYPE  (1,6),  IHSB  (I )  ,  JHSB  ( I )  ,  KHSB  ( I )  , 

Sc  NHSW ( I  )  .NHSD ( I )  ,NHSH(I  )  , MIIZ ( I )  ,MJJZ (I  )  ,MKKZ (I )  , 

&  ITHIN ( I j , JTHIN ( I ) , KTHIN ( I ) 

FORMAT (5X, 'HEAT  SOURCE  NUMBER  :',I2,//, 


Sc  10X, 
Sc  8X , 
10X, 
10X, 
10X, 
10X, 
10X, 
10X, 
10X, 
20X, 
20X, 
20X, 
10X, 
20X, 
20X, 
20X , 


ITS  6  SURFACE  TYPIES  ARE  :  LTYPE ( I )  =',612,//, 


STARTING  CELL  NUMBER  IN  X-DIRECTION 

Y-DIRECTION 
Z-DIRECTION 
AND  THE  CELLS  IN  X-DIRECTION 

Y-DIRECTION 

Z-DIRECTION 

LOCATION  OF  THIS  HEAT  SOURCE  RAD I AT] 
ZONE  NUMBER  IN  X-DIRECTION  :  MIIZ(I) 
Y-DIRECTION  :  MJJZ(I 
Z-DIRECTION  :  MKKZ ( I , 
THIS  HEAT  SOURCE  ZONE  HAS  ',//, 


,// , 
IHSB 

— 

'  ,12,/, 

JHSB 

= 

' ,12,/, 

KHSB 

1 ,12,//, 

NHSW 

1 ,12,//, 

NHSD 

1  ,12,//, 

NHSH 

— 

' ,12,//, 

f  EXCHANGE  ZONE' 

•  Mil 

'  ,12,/, 

=  MJJ 

= 

1 ,12,/, 

‘  MKK 

= 

1 ,12,//, 

ITHIN ( 
JTHIN < 
KTHIN ( 


11  CONTINUE 


= '  12  ' 
= '  12  ' 
= '  12  ' 


ZONE  THICKNESS  IN  X-DIRECTION',/, 
ZONE  THICKNESS  IN  Y-DIRECTION',/, 
ZONE  THICKNESS  IN  Z-DIRECTION',//) 


***  READ  #  7 


READ( 5 ,*)  MI ,MJ ,MK 
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non  o  n n n n n on n onnn noooon n n n on n on 


READ ( 5 ,  *)  (LX (X) ,1=1, HI) 

READ (5 , *)  (LJ(I) ,1=1 ,MJ) 

READ ( 5 ,  *)  (LK( I ) , 1=1 ,MK) 

C 

WRITE (6,13)  MI, (LI(I) ,1=1, MI) 

18  FORMAT (1 OX, 'THERE  IS  ;  MI  = 1 , 12 , '  ZONES  IN  X-DIRECTION ' , // , 

&  20X , 1  THE  NUMBER  OF  CELLS  IN  EACH  ZONE  IS  ;  LI (I)  = '  , 1013  , / ) 

WRITE (6 , 19 )  M J , ( L J ( J ) , J= 1 , M J ) 

19  FORMAT (10X, 'THERE  IS  ;  MJ  =',I2,'  ZONES  IN  Y-DIRECTION' ,//, 

&  20X ,  ' THE  NUMBER  OF  CELLS  IN  EACH  ZONE  IS  ;  LJ(I)  = '  , 1013  , / ) 

WRITE (6,20)  MK, (LK(K) ,K=1 ,MK) 

20  FORMAT (1 OX, 'THERE  IS  ;  MK  = ' , 12 , '  ZONES  IN  Z-DIRECTION 1 , // , 

&  20X , ' THE  NUMBER  OF  CELLS  IN  EACH  ZONE  IS  ;  LK(I)  = ' , 1013 , / ) 

C 

MZ=2*(MI*MJ+MJ*MK+MK*MI) 

WRITE (6, 308)  MZ 

308  FORMAT (5X, 'TOTAL  NUMBER  OF  ZONES  ON  TANK  WALL  = 1 , 13 , / )  • 

C 

NZ=MZ+NHSZ 


***  VARIABLE  ARRAY  NAMES  FOR  ALL  SURFACE  EXCHANGE  ARE  DEFINED  AS 
FOLLOWS ; 


***  WVF-- 
SWVF-- 


VIEW  FACTOR  BETWEEN  TWO  INTERIOR  WALL  ZONES 

SUMMATION  OF  VIEW  FACTOR  FROM  ONE  WALL  ZONE  TO  ALL  OTHER 


VF-H-  : 

VF-HS  : 
&  VFHS-  : 
SVFHS  : 
VFMXR  : 
SMXVFW ( I ) : 


SMXVFH : 


WALL  ZONES 

VIEW  FACTOR  BETWEEN  HEAT  SOURCE  SURFACE  TO  INTERIOR  WALL 
ZONES 

VIEW  FACTOR  BETWEEN  WALL  ZONE  AND  WHOLE  HEAT  SOURCE 
SURFACE 

SUMMATION  OF  VIEW  FACTOR  FROM  HEAT  SOURCE  TO  WALL  ZONES 
VIEW  FACTOR  MATRIX  COEFFICIENT 

SUMMATION  OF  VIEW  FACTOR  MATRIX  COEFFICIENT  FROM  ANY 
ONE  ZONE  TO  ALL  OTHER  ZONES  EXCEPT  THE  HEAT  SOURCE 
ZONE.  THERE  ARE  NZ-1  VALUES 

SUMMATION  OF  VIEW  FACTOR  MATRIX  COEFFICIENT  FROM  HEAT 
SOURCE  ZONE  TO  ALL  OTHER  WALL  ZONES.  ONLY  ONE  VALUE 


***  DEFINE  THE  GRID  SYSTEM 

***  DX, DY , DZ  AND  X,Y  AND  Z  ARE  DIMENSIONAL  QUANTITIES  (FT) 

DX=WC/(NI-2) 

DY=DC/(NJ-2) 

DZ=HC/ (NK-2) 

NIM1=NI-1 
NJM1=NJ-1 
NKM1=NK-1 
NIM2=NI -2 
NJM2=NJ-2 
NKM2=NK-2 

***  DEFINE  THE  DISTANCE  BETWEEN  EACH  CELL 

X( 1 )=-DX 
X(2)=0 . 

DO  1  1=3, NI 
X ( I )=DX*( 1-2 ) 

1  CONTINUE 
Y ( 1 )=-DY 
Y ( 2 ) =0  . 

DO  233  J=3 ,NJ 
Y ( J ) =DY* ( J-2 ) 

233  CONTINUE 
Z ( 1 )=-DZ 
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noon 


Z(2)=0. 

DO  3  K=3 , NK 
Z(K)=DZ*(K-2) 

3  CONTINUE 

WRITE (6, 100) (X(I) , 1=1 , NI ) 

100  FORMAT ( 2X, 1 X  ( FT)= ' , 22 ( F5 . 1 ) ) 

WRITE (6, 101) (Y(I) ,I=1,NJ) 

101  FORMAT ( 2X, 1 Y  ( FT)= ',13 ( IX , F5 . 1 ) ) 

WRITE (6, 102) (Z(I) ,I=1,NK) 

102  FORMAT (2X, ' Z  ( FT)= ' , 18( IX, F5 . 1 ) ) 

C 

DXY=DX*DY 

DZX=DZ*DX 

DYZ=DY*DZ 

C 

A1=2.*X(NI)*Y(NJ)+2.*Y(NJ)*Z(NZ)+2.*Z(NK)*X(NI) 

WRITE (6 , 77 6 )  DX , DY , DZ , DXY , DYZ , DZX , A1 

776  FORMAT (/,5X, 1 DX  = ' , Ell . 4 , 2X, 1 DY  = ' , Ell .4 , 2X , 1 DZ  =',E11.4,/, 

&  5X , 1 DXY  =' ,E11.4,2X, 1 DYZ  = ' ,E11 .4, 2X, ' DZX  =',E11.4,/, 

&/,5X,'  ALL  IN  FT  OR  FT**2 ' , // , 5X , ' TATAL  INTERIOR  SURFACE  1 , 

Sc  'AREA  =' ,F8.3, '  FT**2 ' ,/) 

MIM=MI-1 
MIP=MI+1 
MJM=MJ- 1 
MJP=MJ+1 
MKM=MK- 1 
MKP=MK+1 

MREGN1=0 
IREGN1=MJ*MK 
MREGN2=MREGN1+IREGN1 
IREGN2=MJ*MK 
MREGN3=MREGN2+IREGN2 
IREGN3=MI*MK 
MREGN4=MREGN3+IREGN3 
IREGN4=MI*MK 
MRE  GN  5 =MREGN4 + 1 REGN4 
IREGN5=MI*MJ 
MRE  GN6 =MRE  GN  5  + 1 RE GN 5 
IREGN6=MI*MJ 
MREGN7=MREGN6+IREGM6 
IREGN7=NHSZ 

WRITE (6,777)  IREGN1 , IREGN2 , IREGN3 , IREGN4 , IREGN5 , IREGN6 , IREGN7 , 

Sc  MREGN1+1 ,MREGN2+1 ,MREGN3+1 ,MREGN4+1 ,MREGN5+1 ,MREGN6+1 , MREGN7+1 

777  FORMAT (/, 5 X, 'NUMBER  OF  ZONES  IN  EACH  REGION,  IREGN : ' , / , 

&  5X, 'REGION  1  =' ,13, 2X, ', REGION  2  =', 13 , 2X, ', REGION  3  =',I3,2X, 

&  ', REGION  4  =' ,13, 2X, ', REGION  5  =', 13 , 2X ,', REGION  6  =',I3,2X, 

Sc  ', REGION  7  ='  ,I3,//,5X, 'THE  STARTING  INDEX  NUMBER  FOR  EACH', 
Sc  '  REGION,  MREGN 

Sc  5X, 'REGION  1  ='  ,13, 2X,  ',  REGION  2  =  1  , 13 , 2X ,',  REGION  3  =',I3,2X, 

&  ', REGION  4  =' ,13, 2X, ', REGION  5  =', 13 , 2X ,', REGION  6  =',I3,2X, 

Sc  '  , REGION  7  ='  ,13,/) 

***  DEFINE  THE  DISTANCE  FOR  THE  ZONE  COORDINATE 


DO  14  1=1 .NHSZ 
IB=IHSB ( I ) 

IE=IHSB  I)+NHSW(I)-1 
JB=JHSB { I ) 

•JE=JHSB  ( I  )+NHSD  ( I )  -1 
KB=KHSB(I) 

KE=KHSB ( I ) +NHSH( I ) -1 

IBM1  =IB- 1 
I EMI  =IE-1 
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c 


c 


c 

c 


c 


c 


JBM1  =JB-1 
JEM1  =JE-1 
IBP1  =IB+1 
IEP1  =IE+1 
JBP1  = JB+1 
JEP1  = JE+1 
KBM1  =KB- 1 
KEM1  =KE-1 
KBP1  =KB+1 
KEPI  =KE+1 

WRITE (6,2)  I , IHSB ( I ) , NHSW( I ) , IB , IE ,  JHSB ( I ) , NHSD ( I ) , JB , JE  , 

&  KHSB ( I ) , NHSH ( I ) , KB , KE 

2  FORMAT (// ,2X, 1  ***  POSITION  PARAMETERS  FOR  HEAT  SOURCE  #',I2, 
&  '  ***' ,//,5X, 'ITS  LOCATIONS  IS1,/, 

&  5X , 1 IHSB  =' ,13, 2X, 'NHSW  =',I3,2X,'IB  =',I3,2X,'IE  =',I3,/, 

&  5X , 1 JHSB  ='  ,I3,2X, 'NHSD  =',I3,2X,'JB  =',I3,2X,'JE  = 1  , 13  ,  /  , 

&  5X , 1 KHSB  =' ,I3,2X, 'NHSH  =',I3,2X,'KB  =',I3,2X,lKE  = ' , 13 , // ) 


LZ=MZ+I 

AYZ(I)=(Y(JE+l)-Y(JB) )*(Z(KE+l)-Z(KB)) 
AXY(I)=(Y(JE+1)-Y(JB) )*(X(IE+1)-X(IB) ) 
AZX(I)=(Z(KE+1)-Z(KB) )*(X( IE+1 ) -X(IB) ) 
AREA ( LZ ) = ( AYZ ( I ) +AZX ( I ) +AXY ( I ) ) *2 


WRITE (6, 32)  AXY ( I ) , AYZ ( I ) ,AZX(I) , AREA(LZ) 

32  FORMAT (10X, 'THE  SURFACE  AREA  OF  THE  HEAT  SOURCE',//, 

&  20X , ' AXY ( I )  = 1 , Ell .4 , '  FT**2  IN  X-Y  PLANE',/, 

&  20X , ' AYZ ( I )  = ' , Ell . 4 , '  FT**2  IN  Y-Z  PLANE',/, 

&  20X,  1  AZX(  I )  =  '  ,  Ell .  4  ,  1  FT^2  IN  Z-X  PLANE',/. 

&  15X , ' THE  TOTAL  SURFACE  AREA  IS  =',E11.4,'  FT**2',/) 

14  CONTINUE 


RX(1 )=0 . 

11  =  1 

DO  15  1=1, MI 
I1=LI ( I ) +11 
•  RX ( 1+1 )=X( I 1+1 ) 
11  =  11 

15  CONTINUE 

R  Y  ( 1 )  =  0  . 

JJ=1 

DO  16  J=1 , MJ 
J1=LJ ( J )+JJ 
RY(J+1)=Y(J1+1) 
JJ=J1 

16  CONTINUE 

RZ ( 1 ) =0 . 

KK=1 

DO  17  K=1 ,MK 
K1=LK(K)+KK 
RZ (K+l ) =Z (Kl+1 ) 
KK=K1 

17  CONTINUE 


DO  778  1=1, MI 

778  ZX( I )=RX( 1+1 ) -RX( I ) 

DO  779  J=1 ,MJ 

779  ZY( J )=RY (J+1)-RY(J) 

DO  780  K= 1 , MK 

780  ZZ (K) =RZ (K+l ) -RZ (K) 
13  CONTINUE 


WRITE(6 , 103) (RX(I^ ,1=1 , MI+1) , (RY(J 


) ,J=1,MJ+1) , (RZ(K) ,K=1,MK+1) 
),J=1,  M J ) , ( 2  ' 


&  ,(ZX(I),I=1,  MI) , (ZY(J) , J=l,  MJ) , (ZZ(K) ,K=1 ,  MK) 

103  FORMAT(/ . 5X, 'THE  POSITION  OF  ZONE  BOUNDARY  IN  EACH  DIRECTION  ', 

&' (FT) ' ,/,5X, ' X= ' ,5(1X,F6.3) ,1X, 1 Y= ' ,4(1X,F6.3) ,1X, ' Z= ' ,4(1X,F6.3) 
&  , // , 5X, ' THE  SIZE  OF  THE  ZONE  IN  EACH  DIRECTION,  (FT),' 

&  /,5X, ' X= ' ,4(1X,F6.3) ,1X, ' Y= ' ,3(1X,F6.3) ,1X, 1 Z= ' ,3(1X,F6.3) ,//) 
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nnnoo  nnoonnoo  nnno  o  non  non  ooono 


***  DEFINE  THE  NUMBER  OF  CELLS  IN  EACH  ZONE,  WHICH  WILL  ALSO  BE  USED 
AS  THE  AREA  OF  EACH  ZONE  WITH  MULTIPLICATION  OF  UNIT  AREA  OF  CELL 
***  REGION  1  AND  2,  (L  &  R) ,  NJ*MK  ZONES 

ISUM1=MREGM1 

ISUM2=MREGN2 

DO  977  J= 1 , M J 

DO  977  K=1 ,MK 

ISUM1=ISUM1+1 

ISUM2=ISUM2+1 

AREA(ISUM1)=ZY(J)*ZZ(K) 

AREA ( I S  UM2 ) = ARE A ( I S  UM 1 ) 

977  CONTINUE 

***  REGION  3  AND  4,  (RE  *  F) ,  MI*MK  ZONES 

ISUM1=MREGN3 

ISUM2=MREGN4 

DO  978  1=1, MI 

DO  978  K= 1 , MK 

ISUM1=ISUM1+  1 

ISUM2=ISUM2+  1 

AREA(ISUM1)=ZX(I)*ZZ(K) 

AREA ( I S  UM2 ) = ARE A ( ISUM1 ) 

978  CONTINUE 

***  REGION  5  AND  6,  (B  &  T) ,  MI*MJ  ZONES 

ISUM1=MREGN5 

ISUM2=MREGN6 

DO  979  1=1, MI 

DO  979  J= 1 , M J 

ISUM1=ISUM1+  1 

ISUM2=ISUM2+  1 

AREA ( I SUM1 ) =ZY ( J ) *ZX ( I ) 

AREA( ISUM2 )=AREA( ISUM1 ) 

979  CONTINUE 

WRITE (6,50)  (I ,AREA(I) ,I=1,NZ) 

50  FORMAT ( 5X , 'I  = 1 , 13 , 3X , ' AREA  = ' , F5 . 1 , 1  FT**2') 

***  CALCULATE  THE  WALL  ZONE  TO  WALL  ZONE  VIEW  FACTOR 

******************************* 

CALL  WALL 

******************************* 


****************************************** ******************** ******* 
***  THE  THIRD  STEP  IS  TO 

***  CALCULATE  THE  COEFICIENTS  OF  THE  MATRIX  FOR  THE  SYSTEM  OF  SURFACE 
RADIATIVE  FLUX  EQUATIONS 

DO  405  1=1, NZ 
DO  405  J=1 , NZ 
VFMXR(I , J)=0. 

405  CONTINUE 

***  REGION  1,  L  VS  - ,R,RE,F,B,T 

KSM1=MERGN1 
DO  421  J=1 ,MJ 
DO  421  K= 1 , MK 
KSM1=KSM1+1 
KSM2=MREGN2 
KSM3=MREGN3 
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nnn  ooo 


422 


522 


423 

421 


KSM4=MREGN4 
DO  422  JJ=1,MJ 
DO  422  KK=1 ,MK 
KSM2=KSM2+1 

VFMXR ( KSM1 , KSM2 ) =WVFLR  ( J , K , J J , KK ) 
VFMXR ( KSM2 , KSM1 ) =WVFRL  ( J J , KK , J , K ) 
CONTINUE 
DO  522  11=1, MI 
DO  522  KK=1 ,MK 
KSM3=KSM3+1 
KSM4=KSM4+1 

VFMXR ( KSM1 ,KSM3)=WVFLRE 
VFMXR { KSM1 ,KSM4)=WVFLF 
VFMXR { KSM3 , KSM1 ) =WVFREL 
VFMXR ( KSM4 , KSM 1 ) =WVFFL 
CONTINUE 
KSM5=MREGN5 
KSM6=MREGN6 
DO  423  11=1, MI 
DO  423  JJ=1 ,MJ 
KSM5=KSM5+1 
KSM6=KSM6+1 

VFMXR (KS Ml ,KSM5)=WVFLB 
VFMXR (KSM 1 , KSM6 ) =WVFLT 
VFMXR ( KSM 5 , KSM1 ) =WVFBL 
VFMXR (KSM6 ,KSM1)=WVFTL 
CONTINUE 
CONTINUE 


J , K , II , JJ 
J , K , II , JJ 
II, JJ, J,K 
II , JJ, J,K 


J , K , I I , KK 
J , K , I I , KK 
1 1 , KK , J  ,  K 
II, KK, J,K 


**  REGION  2,  R  VS  -,-,-,F,B,T; 

KSM2=MREGN2 
DO  428  J=1 , MJ 
DO  428  K=1 , MK 
KSM4=MREGM4 
KSM2=KSM2+1 
DO  429  11=1, MI 
DO  429  KK=1 ,MK 
KSM4=KSM4+1 

VFMXR ( KSM 2 , KSM4 ) =WVFRF ( J , K , I I , KK ) 
VFMXR ( KSM4 , KSM2 ) =WVFFR ( I I , KK , J , K ) 

429  CONTINUE 

KSM5=MREGN5 
KSM6=MREGM6 
DO  430  11=1, MI 
DO  430  JJ=1 ,MJ 
KSM5=KSM5+1 
KSM6=KSM6+1 

VFMXR ( KSM2 , KSM5 ) =WVFRB ( J , K , I I , J J ) 
VFMXR ( KSM 2 , KSM6 ) =WVFRT ( J , K , I I , J J ) 
VFMXR ( KSM 5 , KSM2 ) =WVFBR ( I I , J J , J , K ) 
VFMXR ( KSM6 , KSM2 ) =WVFTR ( I I , J J , J , K ) 

430  CONTINUE 
428  CONTINUE 


***  REGION  3,  RE  VS  -,R,-,F,B,T 

KSM3=MREGN3 
DO  425  1=1, MI 
DO  425  K=1 ,MK 
KSM3=KSM3+1 
KSM2=MREGN2 
KSM4=MREGN4 
DO  426  JJ=1 , MJ 
DO  426  KK=1 ,MK 
KSM2=KSM2+1 

VFMXR ( KSM3 , KSM2 ) =WVFRER ( I , K , J J , KK ) 
VFMXR ( KSM2 , KSM3 ) =WVFRRE ( J J , KK , I , K ) 
426  CONTINUE 
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DO  526  11=1, MI 
DO  526  KK= 1 , MK 
KSM4=KSM4+1 

VFMXR ( KSM3 , KSM4 ) =WVFREF ( I , K , I I , KK ) 
VFMXR ( KSM4 , KSM3 ) =WVFFRE ( I I , KK , I , K) 
526  CONTINUE 

KSM5=MREGN5 
KSM6=MREGN6 
DO  427  11=1, MI 
DO  427  JJ=1,MJ 
KSM5=KSM5+1 
KSM6=KSM6+1 

VFMXR (KSM3 , KSM5 )=WVFREB (I ,K, II , JJ) 
VFMXR ( KSM3 , KSM6 ) =WVFRET { I ,  K ,  1 1 ,  J  J ) 
VFMXR (KSM5 , KSM3 ) =WVFBRE (II,JJ,I,K) 
VFMXR ( KSM6 , KSM3 ) =WVFTRE ( I I , J J , I , K ) 
427  CONTINUE 
425  CONTINUE 

**  REGION  4,  F  VS  B,T 

KSM4=MREGN4 
DO  438  1=1, MI 
DO  438  K=1 , MK 
KSM4=KSM4+1 
KSM5=MREGN5 
KSM6=MREGN6 
DO  439  11=1, MI 
DO  439  JJ=1,MJ 
KSM5=KSM5+1 
KSM6=KSM6+1 

VFMXR ( KSM4 , KSM5 ) =WVFFB ( I , K , I I , J J ) 
VFMXR  KSM4 , KSM6  =WVFFT ( I , K , I I , J J ) 
VFMXR ( KSM5 , KSM4 ) =WVFBF ( I I , J J , I , K) 
VFMXR ( KSM6 , KSM4 ) =WVFTF ( I I , J J , I , K ) 
439  CONTINUE 
438  CONTINUE 

**  REGION  5,  B  VS  -,-,-,-,-,T 

KSM5=MREGN5 
DO  448  1=1, MI 
DO  448  J=1 , MJ 
KSM5=KSM5+1 
KSM6=MREGN6 
DO  449  11=1 ,MI 
DO  449  J J=1 ,MJ 
KSM6=KSM6+1 

VFMXR ( KSM5 , KSM6 ) =WVFBT ( I , J , I I , J J ) 
VFMXR  ( KSM6  ,  KSM5)  =W  FTB  ( 1 1 ,  J  J ,  I ,  J  ) 
449  CONTINUE 
448  CONTINUE 


***  VIEW  FACTOR  MATRIX  COEFFICIENT  FOR  HEAT  SOURCES 

DO  301  M=1 ,NHSZ 

LZ=MZ+M 

ISS  =  0 

DO  302  1=1,6 
IS (I )=LTYPE (M, I ) 

ISS=ISS+IS(I) 

302  CONTINUE 
SN=ISS 
MII=MIIZ(M) 

MJJ=MJJZ(M) 

MKK=MKKZ(M) 

MIIM=MII-1 
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c 


MJJM=MJ J- 1 
HKKM=MKK-1 


MIIP=MII+1 
HJJP=MJ J+l 
HKKP=MKK+1 
IP=ITHIM (M) 

JP=JTHIN  M) 

KP=KTHIN(M) 

C 

DO  304  J=1,MJ 
DO  304  K= 1 , MK 
VFHSL( J , K)=0 . 

VFLHS ( J , K) =0 . 

VFHSR(J,K)=0. 

VFRHS ( J , K) =0 . 

304  CONTINUE 

DO  305  1=1, MI 
DO  305  K=1.MK 
VFHSRE ( I , K)=0  . 

VFREHS ( I , K) =0 . 

VFHSF  (I,K)=0. 

VFFHS  ( I , K) =0 . 

305  CONTINUE 

DO  306  1=1, MI 
DO  306  J=1,MJ 
VFHSB ( I , J)=0 . 

VFBHSfl , J)=0. 

VFHST ( I , J ) =0 . 

VFTHS ( I , J)=0 . 

306  CONTINUE 
C 

WRITE (6, 307)  M, Mil ,MJJ ,MKK , ISS , ( IS ( I ) , 1=1 , 6) 

307  FORMAT (//,5X, 'HEAT  SOURCE  # ' , 12 , // , 

&  5X, 1  IT  IS  LOCATED  AT  Mil  = ' , 12 , 2X , ' MJJ  = 1 , 12 , 2X, ' MKK  = '  , 12 , // , 
&  5X, 'NUMBER  OF  SURFACES  ON  THIS  HEAT  SOURCE  IS  ',12,//, 

&  5X , 1  THE  SURFACE  TYPE  LTYPE  :  = '  , 612 , // ) 

***  CALCULATE  VIEW  FACTOR  BETWEEN  HEAT  SOURCE  AMD  ALL  WALL  ZONES 

************************************************ 

CALL  HSTWAL ( IS  . KSS , IP . JP, KP) 

*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  &  *  *  *  X  *  *  X  *  *  7*  *  *  7*  *  *  *  *  *  *  *  *  *  *  *  *  *  *  * 


**  REGION  7,  HS  VS  L,R,RE,F,B,T 
***  HS  VS  R  &  L 


KSM1=0 
KSM2=MREGN2 
DO  401  J=1 ,MJ 
DO  401  K=1 ,MK 
KSM1=KSM1+1 
KSM2=KSM2+1 

VFMXR ( LZ , KSM1 ) =VFHSL ( J , K ) / SN 
VFMXR ( KSM1 , LZ  =VFLHS ( J , K  / SN 
VFMXR ( LZ , KSM2 ) =VFHSR ( J , K } /SN 
VFMXR ( KSM2 , LZ ) =VFRHS ( J , K ) / SN 
401  CONTINUE 

***  HS  VS  RE  &  F 

KSM3=MREGN3 
’  KSM4=MREGN4 
DO  402  1=1, MI 
DO  402  K=1,MK 
KSM3=KSM3+1 
KSM4=KSM4+1 

VFMXR ( LZ , KSM3 ) =VFHSRE ( I , K ) / SN 
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VFMXR ( KSM3 , LZ ) =VFREHS ( I , K) /SN 
VFHXR ( LZ , KSM4 ) =VFHSF ( I , K ) / SM 
VFMXR ( KSM4 , LZ ) =VFFHS ( I , K ) / SN 

402  CONTINUE 

***  HS  VS  T  &  B 

KSH5=MREGN5 
KSM6=MREGN6 
DO  403  1=1, MI 
DO  403  J=1,MJ 
KSM5=KSM5+1 
KSM6=KSM6+1 

VFMXR ( LZ , KSM5 ) =VFHSB ( I , J ) / SN 
VFMXR (KSM5,LZ  =VFBHS  I , J)/SN 
VFMXR ( LZ , KSM6  =VFHST ( I , J ) /SN 
VFMXR ( KSM6 , LZ ) =VFTHS ( I , J ) / SN 

403  CONTINUE 

301  CONTINUE 


***  PRINT  OUT  THE  VIEW  FACTOR  MATRIX  COEFFICIENTS 

DO  559  M=1 , NHSZ 
LZ=MZ+N 

WRITE (6, 560)  M,LZ 

560  FORMAT (/ ,5X, 'HEAT  SOURCE  ZONE  #',12,';  THE  INDEX  NUMBER  IS', 14,//) 

DO  120  1=1, NZ 
120  SMXVFW( I )=0 . 

WRITE (6, 558) 

558  FORMAT (//, 5X, 1  SUMMATION  OF  VIEW  FACTOR  MATRIX  COEFFIENT ' , // , 

&  '(1).  ONE  ZONE  TO  ALL  OTHER  ZONES  EXCEPT  THE  HEAT  SOURCE',/ 

Sc  '(2).  ONE  ZONE  TO  ALL  OTHER  ZONES  INCLUDES -THE  HEAT  SOURCE1,//) 
DO  550  1=1, NZ 
DO  557  J=1.NZ 

IF(J.LE.MZ)  SMXVFW ( I ) =SMXVFW ( I ) +VFMXR ( I , J ) 

SMXVFH ( I ) =SMXVFH ( I ) +VFMXR ( I , J) 

557  CONTINUE 

WRITE (6, 553)  I , SMXVFW(I ) .SMXVFH(I) 

553  FORMAT ( 5X, 1 1  = 1 , 13 , 2E16 .4) 

550  CONTINUE 

WRITE (6 , 562) 

562  FORMAT (/ ,4X, 'VF  ;  HS  TO  WALL  (l)',6X,'VF  ;  WALL(I)  TO  HS',//) 

SUM1=0 . 

SUM2=0. 

DO  782  1=1, MZ 
SUM1=SUM1+ VFMXR ( I ,LZ) 

SUM2=SUM2+VFMXR(LZ , I ) 

WRITE (6,783)  I , VFMXR (LZ , I ) , VFMXR ( I , LZ) 

783  FORMAT ( 10X, 1 1  = 1  , 13 , 2E15 .4) 

782  CONTINUE 

WRITE (6, 7 84)  N,SUM1,SUM2 

784  FORMAT (3X, 'SUMMATION  OF  VIEW  FACTOR  FROM  ALL  WALL  ZONES  TO  ', 

&  'HEAT  SOURCE  # ' , 12 , ' ,  THE  VFHXR(I,LZ);  =',E14.4,/, 

Sc  3X, 'SUMMATION  OF  VIEW  FACTOR  FROM  HEAT  SOURCE  TO  ALL  WALL  ', 

Sc  'ZONES,  1  ,8X,  '  VFMXR  (LZ  ,1);  '  ,E14.4,/) 

***  SMXVFF :  SUMMATION  OF  VIEW  FACTOR  MATRIX 

***  VIEW  FACTOR  FROM  HEAT  SOURCE  TO  WALL  ZONES;  CALCULATED  FROM 
SURFACE  AREA  EXCHANGE  MEHTOD 
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WRITE (6, 787) 

787  FORMAT (3X, 'VIEW  FACTOR  FROM  HEAT  SOURCE  TO  WALL  ZONES  ',/,3X, 

&  '(1)  CALCULATED  FROM  WALL  TO  HEAT  SOURCE  RECIPROCAL  METHOD 1  ,/ , 

&  3X,'(2)  CALCULATED  FROM  FORMULATION  DIRECTLY',//) 

I 

SMXVFF=0. 

DO  552  1=1 , MREGN3 

AA=VFMXR ( I , LZ ) *AREA ( I ) /AREA ( LZ ) 

S  MX V  F  F = S  MX V  F  F + AA 
BB=VFMXR(LZ . I ) 

WRITE (6, 788)  I , AA, BB 

788  FORMAT ( 5X , ' I  = ' , 13 , 2X,E13 .4, 2X,E13 .4) 

552  CONTINUE 

DO  555  I=MREGN3+1,MREGN5 
AA=VFMXR ( I , LZ ) *AREA ( I ) /AREA ( LZ ) 

SMXVFF=SMXVFF+AA 
BB=VFMXR ( LZ . I ) 

WRITE (6,788)  I , AA , BB 

555  CONTINUE 

DO  556  I=MREGN5+1,NZ-1 
AA=VFMXR ( I , LZ ) *ARE  A ( I ) / AREA (LZ) 

SMXVF  F= S MXV F  F + AA 
BB=VFMXR ( LZ . I ) 

WRITE (6,738)  I , AA , BB 

556  CONTINUE 

WRITE (6, 807)  SMXVFF 

807  FORMAT (/,5X, 'SUMMATION  OF  VIEW  MATRIX  COEFF .  FROM  HEAT  SOURCE', 

&  'TO  ALL  WALL  ZONES,  SMXVFF  =',E11.4,/) 

559  CONTINUE 

WRITE(6, 551) 

WRITE (6, 801) 

801  FORMAT (/,5X, 1  (J,K,(SWVFL  ( J , K) , K=1 ,MK) , J=1 ,MJ) ' , / ) 

WRITE (6 , 809 ) ( ( J , K . SWVFL  ( J,K) ,K=1 ,MK) , J=1 ,MJ) 

809  FORMAT ( 214 , 1PE10 1 2 ) 

WRITE (6,802) 

802  FORMAT (/ , 5X , '  ( J , K, (SWVFR( J , K) , K=1 ,MK) , J=1 ,MJ) ' , / ) 

WRITE (6, 809) ( ( J , K, SWVFR( J , K) ,K=1,MK) ,J=1,MJ) 

WRITE (6, 803) 

803  FORMAT (/ , 5X, '  ( I , K, (SWVFRE ( I , K) , K=1 ,MK) , 1=1 , MI ) ' , / ) 

WRITE (6 , 809 ) ( (I , K , SWVFRE ( I , K) , K=1 ,MK) , 1=1 ,MI ) 

WRITE (6, 804) 

804  FORMAT ( / , 5X , 1  (I,K,(SWVFF  (I , K) ,K=1 ,MK) , 1=1 ,MI ) ' , /) 

WRITE ( 6 , 809 ) ( ( I , K , SWVFF  ( I , K) , K=1 , MK) , 1=1 , MI ) 

WRITE (6, 805) 

805  FORMAT ( / , 5X, '  (I,J,(SWVFB  (I , J) , J=1 ,MJ) , 1=1 ,MI) ' ,/) 

WRITE (6 , 809 ) ( (I , J , SWVFB  (I , J) , J=1 ,MJ) , 1=1 ,MI) 

WRITE (6,806 )• 

806  FORMAT (/ , 5X , '  (I,J,(SWVFT  ( I , J) , J=1 , MJ) , 1=1 , MI ) ' , / ) 

WRITE (6 , 809 ) ( ( I , J , SWVFT  (I , J) , J=1 ,MJ) , 1=1 ,MI ) 

551  FORMAT (/,2X, 'SUMMATION  OF  VIEW  FACTOR') 

***  SAVE  DATA  ON  A  DISK  FILE 

WRITE (9) 

&  IREGN1 , IREGN2 , IREGN3 , IREGN4 , IREGN5 , IREGN6 , IREGN7 , 

&  MREGN1 , MREGN2 , MREGN3 , MREGN4 , MREGN5 , MREGN6 , MREGN7 , 

&  WC , DC , HC , NI , N J , NK , AXY , AYZ , AZX , 

&  MI IZ , M J JZ , MKKZ , MI , MJ , MK , LTYPE , MZ , NHSZ , NZ , LI , L J , LK , 

&  ITHIN , JTHIN , KTHIN , IHSB , JHSB , KHSB , NHSW , NHSD , NHSH , VFMXR , AREA 

WRITE (6,773) 

773  FORMAT (5X, 'VIEW  FACTOR  MATRIX  AT ' , // , 5X , ' I , ( J , VFMXR ( I , J) , J=1 ,NZ) ' , 

&  //) 


M=1 

J=1 
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MZ=NZ/8 
DO  771  1=1, NZ 
774  CONTINUE 

IF(M.GT.MZ)  GO  TO  775 
WRITE (6,772)  I ,  ( K , VFMXR ( I , K ) ,K=J, J+7) 

J= J+8 
M=M+1 
GO  TO  774 

75  WRITE (6,772)  I , (K, VFMXR (I ,K) ,K=J,NZ) 

M=1 
J=1 

771  CONTINUE 

772  F0RMAT(1X, 1 1=' ,13,8  ('  J= 1 , 13 , 1PE8 . 1 , 1 , ' ) , / ) 

STOP 
END 

SUBROUTINE  WALL 

COMMON/BL3/  VFMXR ( 67 , 67 ) . SMXVFW(67 ) , SMXVFH (67 ) 

COMMON /BL4/  WVFLR ( 3 , 3 , 3 , 3 ) , WVFLRE ( 3 , 3 . 4 , 3 ) , WVFLF (3 , 3 . 4 , 3 ) , 

&  WVFLT (  3 , 3 , 4 , 3 )  , WVFRRE ( 3 , 3 , 4 , 3 ) , WVFRF (3 , 3 , 4 , 3  )  , WVFRB (  3 , 3 , 4 , 3 )  , 

&  WVFRT { 3 , 3 , 4 , 3 ) , WVFRL  (  3 , 3 , 3 , 3 ) , WVFFL( 4 , 3,3,3) , WVFFB (4 , 3,4,3) , 

&  WVFFT { 4 , 3 , 4 , 3  )  , WVFFRE  ( 4 , 3 , 4 , 3  )  , WVFFR ( 4,3,3,31, WVFBT ( 4 , 3 , 4 , 3  , 

&  WVFBL(4,3,3,3) ,WVFBRE(4, 3,4,3 ) ,WVFBF(4, 3,4,3) ,WVFBR(4, 3,3,3) , 

&  WVFTL ( 4 , 3 , 3 , 3 ) . WVFTRE ( 4 , 3 , 4 , 3 ) . WVFTF ( 4 , 3 , 4 , 3 ) , WVFTR ( 4 , 3 , 3 , 3 ) , 

&  WVFRET ( 4 , 3 , 4 , 3 ) , WVFREF (4 , 3 , 4 , 3 ) , WVFRER (4 ,3,3,3) , WVFTB (4 ,3,4,3) , 
&  WVFREL (4 ,3,3,3), WVFREB ( 4 , 3 , 4 , 3 ) , WVFLB ( 3 , 3 , 4 , 3 ) 

COMMON/BL5/ 

Sc  VFHSR (3,3) , VFHSF (4,3) , VFHSRE (4 , 3 ) , VFHST (4 , 3 ) , VFHSB (4 , 3 ) , 

&  VFRHS (3,3), VFFHS (4,3) , VFREHS (4,3) , VFTHS (4,3), VFBHS (4,3), 

&  VFHSL (3 , 3 ) , VFLHS (3 , 3 ) 

COMMON  /BL6/  VFLHT (3 , 3 ) , VFRHT (3 , 3 ) , VFFHT (4 , 3 ) , VFREHT(4 , 3 ) , 

Sc  VFFHR (3,3) , VFRHR (3,3) , VFREHR (4,3), VFTHR (4,3), VFBHR (4,3) , 

Sc  VFLHL (3,3). VFFHL (4,3) , VFREHL (4,3) , VFTHL (4,3), VFBHL (4,3) , 

&  VFLHRE (3,3) , VFRHRE (3.3), VREHRE (4,3) ,VFTHRE(4,3) , VFBHRE (4 , 3 ) , 

&  VFLHF (3,3), VFRHF (3,3), VFFHF (3,3) , VFTHF (4,3). VFBHF (4,3). 

&  VFLHB (3,3) , VFRHB (3,3), VFFHB (4,3) , VFREHB (4,3), VFBHB (4,3) , 

&  VFTHT (4 , 3 ) 

C 

COMMON  /BL7 /  VFHTL( 3 , 3 ) , VFHTR(3 , 3 ) , VFHTF (4,3) , VFHTRE (4,3), 

Sc  VFHRF (3,3) , VFHRR(3 , 3 ) , VFHRRE (4,3), VFHRT (4,3), VFHRB (4,3) , 

Sc  VFHLL (3,3). VFHLF (4,3) ,VFHLRE(4,3) , VFHLT (4,3;, VFHLB (4,3) , 

&  VFHREL (3,3) , VFHRER(3 , 3 ) , VHRERE (4,3) , VFHRET (4,3) , VFHREB (4 , 3 ) , 

&  VFHFL(3 , 3 ) , VFHFR(3 , 3 ) , VFHFF (3,3) , VFHFT (4 , 3 ) . VFHFB (4 , 3 ) . 

Sc  VFHBL (3,3) , VFHBR( 3 , 3 ) , VFHBF (4,3) , VFHBRE (4 , 3 ) , VFHBB (4 , 3 ) , 

&  VFHTT (4,3) 

C 

COMMON  /BL8/  X( 22) , Y( 18) , Z ( 18) ,NOD(22 , 18 , 18) , 

&  RX ( 5 ) ,RY(4) ,RZ(4) ,AREA(67) ,ZX(5) ,ZY(4) ,ZZ(4) 

C 

COMMON  /BL9/  SWVFRE  (4 , 3 )  ,  SWVFL (3 , 3 )  ,  SWVFR(3 , 3)  ,  SWVFF (4 , 3 )  , 

&  SWVFT (4,3) , SWVFB (4,3) 

COMMON  /BL10/  NZ , DX, DY , DZ , DXY , DYZ ,DZX , WC , DC ,HC 
C 

COMMON  /BL1 /  NI , N J , NK , MINI , NJM1 , NKM1 , NIM2 , NJM2 . NKM2 , 

Sc  MI ,  M  J ,  MK ,  MI  I ,  M  J  J  ,  MKK ,  MIM ,  MIP ,  MJM ,  MJP ,  MKM ,  MKP ,' 

Sc  MUM ,  MI  IP ,  MJ  JM ,  MJ  JP ,  MKKM ,  MKKP , 

&  IREGN1 , IREGN2 , IREGN3 , IREGN4 , IREGN5 , IREGN6 , IREGN7 , 

Sc  MREGN1  ,MREGN2  ,MREGN3  ,MREGN4  ,MREGN5  ,MREGN6  ,MREGN7 
C 

COMMON  /BL2/  IB , IE , IBM1 , IBP1 , IEM1 , IEP1 , 

&  JB , JE , JBM1 , JBP1 , JEM1 , JEP1 , 

&  KB , KE , KBM1 , KBP1 , KEM1 , KEPI 

C 

COMMON/BL11/  MIIZ(9) ,MJJZ(9) ,MKKZ(9) ,IS(6) ,LTYPE(9,6) , 

&  LI ( 9 ) ,LJ(9) ,LK(9) ,AYZ(9) , AXY(9) , AZX(9) , 

S<  NHSZ ,  ITHIN  ( 9 )  ,  JTHIN  ( 9  )  ,  KTHIN ( 9 )  , 
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IHSB (9 ) , NHSW ( 9 ) , JHSB ( 9 ) ,NHSD(9) ,KHSB(9) ,NHSH(9) 


& 


***  WVF--  VIEW  FACTOR  BETWEEN  TWO  WALL  ZONES 

SWVF--  SUMMATION  OF  VIEW  FACTOR  FROM  ONE  WALL  ZONE  TO  ALL  OTHER 
WALL  ZONES 

***  THE  VIEW  FACTORS  BETWEEN  TANK  INTERIOR  WALL  ZONES 

***  3  PAIRS  OF  PARALLEL  WALLS  INSIDE  THE  TANK 

1.*  LEFT  WALL  VS  RIGHT  WALL,  (L  VS  R) 

GHZ=RX(MI+1 ) -RX( 1 ) 

DO  500  J= 1 , M J 
DO  500  K=1 ,MK 
DO  500  J J= 1 , M J 
DO  500  KK= 1 , MK 
DO  4  L=1 , NHSZ 

I F ( LTYPE ( L  ,  1 ) . NE , 1 )  GO  TO  5 
IF ( J  .NE.  MJJZ(L))  GO  TO  4 
IF ( K  .ME.  MKKZ(L))  GO  TO  4 
IF(JJ.NE.  MJJZ  L  GO  TO  4 
I F ( KK . NE .  MKKZ(L))  GO  TO  4 
GO  TO  500 

4  CONTINUE 

5  CONTINUE 
JP1=J+1 
KP1=K+1 
JJP1=JJ+1 
KKP1=KK+1 

DDD=PARLEL (RZ (K) ,RZ(KP1) ,RY( J) ,RY(JP1) , RY( JJ) , RY( J JP1 ) , RZ (KK) , 
&  RZ ( KKP1 ) , GHZ ) *GHZ*GHZ 

WVFLR ( J , K , JJ , KK)=DDD/ (ZY ( J)*ZZ (K) ) 

WVFRL ( J J , KK , J , K ) =DDD/ ( ZY ( J J ) *ZZ ( KK) ) 

SWVFL( J ,K)  =SWVFL( J ,K)  +WVFLR( J , K , JJ , KK) 

SWVFR ( J J , KK) =SWVFR ( J  J , KK) +WVFRL ( J J , KK , J , K) 

500  CONTINUE 

WRITE (6,51) 

51  FORMAT (2X, ' J  ,K  , SWVFL  (  J,  K)  **  JJ,KK, WVFLR  ( J ,K, JJ ,KK) , ' , 

&  'WVFRL  ( JJ ,KK, J,K) ,  SWVFR  (JJ,KK)',/)  • 

DO  52  J=1 ,MJ 
DO  52  K=1 ,MK 

WRITE (6,53)  J  , K  , SWVFL  (  J,  K) 

53  FORMAT (2X, 1  J= 1  , 13  ,  '  K=  '  ,13, ’  SWVFL  = 1 , 1PE10 . 2, / ) 

WRITE (6,54)  ( (JJ,KK, WVFRL  (  J,  K, JJ,KK) , WVFRL  (JJ,KK,  J,  K) , 

&  SWVFR  (JJ,KK) ,KK=1,MK) ,JJ=1,MJ) 

54  FORMAT (2I3,3E14.4) 

52  CONTINUE 

2.*  REAR  WALL  VS  FRONT  WALL,  (RE  VS  F) 

GHZ=RY(MJ+1 ) -RY( 1 ) 

DO  501  1=1, MI 
DO  501  K=1 , MK 
DO  501  11=1, MI 
DO  501  KK=1 ,MK 
DO  6  L=1 ,NHSZ 

I F ( LTYPE ( L  ,  3  ) . NE . 1 )  GO  TO  7 
IF (I  .ME.  MIIZ(L) )  GO  TO  6 
IF ( K  .NE.  MKKZ(L)}  GO  TO  6 
I F { I I . NE .  MIIZ(L)  GO  TO  6 
I F ( KK . ME .  MKKZ(l))  GO  TO  6 
GO  TO  501 

6  CONTINUE 

7  CONTINUE 
IP1=I+1 
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KP1=K+1 
IIP1  =  I-I  +  1 
KKP1=KK+1 

ddd=parlel(rz(k) ,RZ(KP1) ,RX(I) ,RX(IP1) ,RX(II) ,RX(IIP1) ,RZ(KK) , 
&  RZ ( KKP1 ) , GHZ ) *GHZ*GHZ 

WVFREF(I ,K,II ,KK)=DDD/( (RX(IPl) -RX( I) )*(RZ(KP1 )-RZ(K) )) 
WVFFRE(II,KK,I,K)=DDD/((RX(IIP1)-RX(II))*(RZ(KKP1)-RZ(KK))) 
SWVFRE ( I ,  K)  =SWVFRE ( I , K)  +WVFREF ( I , K , I I , KK ) 

SWVFF ( II , KK) =SWVFF ( II , KK)+WVFFRE ( II , KK, I , K) 

501  CONTINUE 

WRITE (6,55) 

55  FORMAT ( 2X ,  1  I,  K,SWVFRE(  I,  K)  **  1 1 , KK , WVFRE F(I,K,II,KK), 1  , 

&  1 WVFFRE ( II , KK , I , K) ,  SWVFF  (II, KK)1,/) 

DO  56  1=1, MI 
DO  56  K=1 ,MK 

WRITE (6, 57)  I,  K, SWVFRE (  I,  K) 

57  FORMAT (2X,1  I=',I3,'  K=',I3,'  SWVFRE= ' , 1PE10 . 2 . / ) 

WRITE (6,54)  ( (II,KK,WVFREF(  I,  K , II , KK) , WVFFRE (I I , KK ,  I,  K) , 

&  SWVFF  ( II , KK) , KK=1 , MK) , 11=1 ,MI ) 

56  CONTINUE 


3.*  TOP  WALL  VS  BOTTOM  WALL,  (T  VS  B) 


GHZ=RZ (MK+1 ) -RZ ( 1 ) 

DO  502  1=1, MI 
DO  502  J=1 ,MJ 
IP1=I+1 
J?1=J+1 

DO  502  11=1, MI 
DO  502  JJ=1 ,MJ 
DO  8  L=1 ,NHSZ 

IF (LTYPE (L ,  3 ) .ME  .  1 )  GO  TO  9 
IF ( I  .NE.  MIIZ(L) )  GO  TO  8 
IF { J  .NE.  MJJZ { L ) )  GO  TO  8 
IF(II .NE. .MIIZ(L) )  GO  TO  8 
IF ( JJ .NE .  MJJZ(L))  GO  TO  8 
GO  TO  502 

8  CONTINUE 

9  CONTINUE 
IIP1=II+1 
JJP1=JJ+1 

DDD=PARLEL(RY( J) ,RY( JP1) ,RX(l) , RX(IPI) , RX( II ) ,RX(IIPl) ,RY(JJ) , 
&  RY (J JP 1 ) , GHZ ) *GHZ*GHZ 

WVFBT  (I, J,II , JJ)=DDD/(ZX(I)*ZY(J) ) 

WVFTB  (II , JJ.I, J)=DDD/(ZX(II)*ZY(JJ)) 

SWVFB  {  I,  J)=SWVFB  (  I,  J)+WVFBT  (I,J,II,JJ) 

SWVFT  (II , JJ)=SWVFT  (II , JJ)+WVFTB  (II,JJ,I,J) 

502  CONTINUE 


WRITE (6, 110) 

110  FORMAT (2X. 1  I,  J, SWVFB  (  I,  J)  **  II, JJ, WVFBT  (I , J , II , J J) , ' , 
&  'WVFTB  (II,JJ,I,J),  SWVFT  (II, JJ)',/) 


DO  111  1=1, MI 
DO  111  J=1 ,MJ 
WRITE ('6, 112)  I,  J, SWVFB  ( 


I,  J) 


SWVFB  =' , 1PE10 . 2 . / ) 


112  FORMAT  (2X,  1  1=  1  , 13  ,  1  J=',I3,  _ _ 

WRITE (6.54)  ( (II, JJ, WVFBT  (  I,  J , II , JJ) , WVFTB  (II, JJ,  I,  J) , 
&  SWVFT  (II, JJ) , JJ=1,MJ) ,11=1, MI) 

111  CONTINUE 


***  12  PAIRS  OF  PERPENDICULAR  WALL  INSIDE  THE  TANK 

***  i  ===  LEFT  WALL  VS  BOTTOM  (L  VS  B) 

DO  503  J=1 ,MJ 
DO  503  K=1 , MK 
DO  503  11=1, MI 
DO  503  JJ=1 ,MJ 
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GH1  =RX( II ) 

GH2  =RX(II+1) 

GV1  =RY(JJ) 

GV2  =RY ( J J+l ) 

SV1  =RY ( J ) 

SV2  =RY  J+l) 

SHI  =R2 i K) 

SH2  =RZ( K+l ) 

DDD  =PERPND ( SHI , SH2 , SV1 , SV2 , GV1 . GV2 , GH1 , GH2 ) 

WVFLB ( J , K , II , JJ  J  =DDD/ ( (SH2-SH1 )*(SV2-SV1)) 

WVFBL (II , JJ, J,K)=DDD/( (GH2-GH1 ) * (GV2-GV1 ) ) 

SWVFL(J,K)  =SWVFL(J,K)  + WVFLB  (J,K,II,JJ) 

SWVFB ( I I , J J ) =SWVFB ( 1 1 ,  J  J ) +WVFBL ( I I , J J , J , K ) 

503  CONTINUE 

WRITE (6, 59) 

59  FORMAT (2X, 1  J,  K, SWVFL  (  J,  K)  **  II,JJ,WVFLB  ( J , K , I I , JJ ) , 1 , 
&  1 WVFBL  (II,JJ,J,K),  SWVFB  (II,JJ)',/) 

DO  60  J=1 , MJ 
DO  60  K=1 ,MK 

WRITE (6,61)  J,  -K, SWVFL  (  J,  K) 

61  FORMAT (2X,  1  J=\I3,'  K='/I3,'  SWVFL  = 1 , 1PE10 . 2 . / ) 

WRITE (6.54)  ((II, JJ,WVFLB  (  J,  K, II , JJ) , WVFBL  (II, JJ,  J,  K) , 
&  SWVFB  (II, JJ) , JJ=1,MJ) , 11=1, MI) 

60  CONTINUE 

***  2  ===  LEFT  WALL  VS  REAR  WALL  (L  VS  RE) 

DO  504  J=1 ,MJ 
DO  504  K=1 , MK 
DO  504  11=1, MI 
DO  504  KK=1 ,MK 
GH1  =RX(II ) 

GH2  =RX( I 1+1 ) 

GV1  =RZ(KK) 

GV2  =RZ  KK+1) 

SHI  =RY ( J ) 

SH2  =RY  J+l) 

SV1  =RZ ' K) 

SV2  =RZ ( K+l ) 

DDD  =PERPMD ( SHI , SH2 , SV1 , SV2 ,GV1 . GV2 , GH1 , GH2 ) 

WVFLRE ( J , K , I I , KK)=DDD/ ( ( SH2 - SHI ) * ( SV2-SV1 ) ) 

WVFREL(II.KK, J,K)=DDD/( (GH2-GH1 ) *(GV2-GV1 ) ) 

SWVFL (J ,K)  =SWVFL( J ,K)  +WVFLRE ( J , K , I I , KK) 

SWVFRE ( I I , KK ) =SWVFRE ( I I , KK ) +WVFREL ( I I , KK , J , K ) 

504  CONTINUE 

WRITE (6,63) 

63  FORMAT ( 2X, 1  J,  K, SWVFL  (  J,  K)  **  II , KK , WVFLRE (J , K , II , KK) , 1 , 
&  1 WVFREL ( II , KK , J , K) ,  SWVFRE (II ,KK) ' , /) 

DO  64  J=1 ,MJ 
DO  64  K=1 , MK 

WRITE (6, 66)  J,  K, SWVFL  (  J,  K) 

66  FORMAT ( 2X, 1  J= 1 , 13 , '  K= ' , 13 , '  SWVFL  = 1 , 1PE10 . 2 . / ) 

WRITE (6.54)  ((II, KK , WVFLRE (  J,  K , II , KK) , WVFREL (II , KK ,  J,  K) , 
-  Sc  SWVFRE(lI  ,KK)  ,KK=1,MK)  ,11  =  1, MI) 

64  CONTINUE 

***  3===  LEFT  WALL  VS  FRONT  WALL,  (L  VS  F) 

DO  505  J=1 ,MJ 
DO  505  K=1 ,MK 
.  DO  505  11=1, MI 
DO  505  KK=1 ,MK 
GH1  =RX( II ) 

GH2  =RX( II+l ) 

GV1  =RZ (KK) 

GV2  =RZ (KK+1 ) 

SH2  =RY ( M J+ 1 ) - RY ( J ) 
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SHI  =RY (MJ+l)-RY(J+l) 

SV1  =RZ  K) 

SV2  =RZ ( K+l ) 

DDD  =PERPND (SHI . SH2 , SV1 , SV2 , GV1 . GV2 , GH1 , GH2 ) 

WVFLF(J,K,II ,KK)=DDD/( (SH2-SH1 ) * (SV2-SV1 ) ) 

WVFFL( II , KK , J , K)=DDD/ ( (GH2-GH1 ) * (GV2-GV1 ) ) 

SWVFL(J,K)  =SWVFL(J,K)  +WVFLF ( J , K , I I , KK ) 

SWVFF ( I I , KK ) =SWVFF ( I I , KK ) +WVFFL ( I I , KK , J , K) 

505  CONTINUE 

WRITE (6,70) 

70  FORMAT (2X,  1  J,  K, SWVFL  (  J,  K)  **  II,KK,WVFLF  ( J  ,  K ,  II ,  KK)  ,  1  , 
&  1  WVFFL  ( II , KK , J , K) ,  SWVFF  (II, KK)',/) 

DO  67  J=1 , MJ 
DO  67  K=1 ,MK 

WRITE (6,69)  J,  K , SWVFL  (  J,  K) 

69  FORMAT (2X, 1  J=',I3/I  K=',I3,'  SWVFL  = 1 , 1PE10 . 2 . / ) 

WRITE (6.54)  ( (II  , KK, WVFLF  (  J,  K, II ,KK) , WVFFL  (II, KK,  J,  K) , 
&  SWVFF  ( I I , KK ) , KK= 1 , MK ) , I I = 1 , MI ) 

67  CONTINUE 


***  4  ===  LEFT  WALL  VS  TOP  WALL,  (L  VS  T) 

DO  506  J=1 , MJ 
DO  506  K=1 ,MK 
DO  506  11=1 ,MI 
DO  506  J J=1 , MJ 
GH1  =RX (II) 

GH2  =RX( I 1+1 ) 

GV1  =RY ( J J) 

GV2  =RY ( JJ+1 ) 

SV1  =RY ( J ) 

SV2  =RY ( J+l ) 

SH2  =RZ(MK+1)-RZ(K) 

SHI  =RZ ( MK+1 ) -RZ(K+1 ) 

DDD  =PERPND ( SHI . SH2 , SV1 , SV2 , GV1 , GV2 , GH1 , GH2 ) 
WVFLT ( J , K , 1 1 , J J  j  =DDD/ ( (SH2-SH1 )^(SV2-SV1)) 
WVFTL ( I I , J J , J , K)=DDD/ ( (GH2-GH1 j* (GV2-GV1 ) ) 
SWVFL ( J , K)  =SWVFL( J ,K)  +WVFLT( J,K, II , JJ) 
SWVFT(II , JJ)=SWVFT(II , JJ)+WVFTL(II , J J , J,K) 
506  CONTINUE 


WRITE  (6, .71) 

71  FORMAT (2X, 1  J,  K,SWVFL  (  J,  K)  **  II,JJ,WVFLT  ( J , K , I I , JJ ) , 1 , 
&  'WVFTL  (II,JJ,J,K)#  SWVFT  (II, JJ)',/) 

DO  72  J=1 , MJ 
DO  72  K=1 ,MK 

WRITE (6,74)  J,  K, SWVFL  (  J,  K) 

74  FORMAT (2X,1  J= '  , 1 3  ,  1  K= '  ,13,  '  SWVFL  = 1  , 1PE10 . 2  . / ) 

WRITE (6.54)  ((II, JJ, WVFLT  (  J,  K, II ,JJ) , WVFTL  (II, JJ,  J,  K) , 
&  SWVFL  (II ,JJ) ,JJ=1,MJ) ,11=1, MI) 

72  CONTINUE 


5  ===  rear  WALL  VS  BOTTOM  WALL,  (RE  VS  B) 

DO  507  1=1, MI 
DO  507  K=1 ,MK 
DO  507  11=1, MI 
DO  507  JJ=1 , MJ 
GV1  =RX( II) 

GV2  =RX( I 1+1 ) 

GH1  =RY ( JJ ) 

GH2  =RY( JJ+1 ) 

SV1  =RX( I ) 

SV2  =RX( 1+1 ) 

SHI  =RZ(K) 

SH2  =RZ ( K+l ) 

DDD  =PERPND ( SHI , SH2 , SV1 , SV2 , GV1 . GV2 , GH1 , GH2 ) 
WVFREB ( I , K , I I , J J)=DDD/ ( (SH2-SH1 )*(SV2-SV1)) 
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WVFBRE ( II , JJ , I , K)=DDD/ ( (GH2-GH1 )* (GV2-GV1 ) ) 

SWVFRE ( I , K)  =SWVFRE ( I , K)  +WVFREB(I ,K, II , JJ) 

SWVFB( II , J J)=SWVFB ( II , JJ) +WVFBRE (II,JJ,I,K) 

507  CONTINUE 
C 

WRITE (6, 75) 

75  FORMAT (2X, 1  I,  K,SWVFRE(  I,  K)  **  II , JJ , WVFREB ( I , K , II , JJ ) , ' , 
Sc  1  WVFBRE  ( II , JJ , I , K) ,  SWVFB  (II, JJ)1,/) 

DO  76  1=1 ,MI 
DO  76  K= 1 , MK 

WRITE (6, 78)  I,  K, SWVFRE (  I,  K) 

78  FORMAT (2X,  1  I=',I3,'  K=',I3,'  SWVFRE= 1 , 1PE10 . 2, / ) 

WRITE (6.54)  ((II, JJ,WVFREB(  I,  K, II , JJ) , WVFBRE (II , JJ ,  I,  K) , 

Sc  SWVFB  (il  ,JJ)  , JJ=1 ,MJ)  ,11=1, MI) 

76  CONTINUE 

***  6  ===  rear  WALL  VS  RIGHT  WALL,  (RE  VS  R) 

DO  509  1=1 ,MI 
DO  509  K=1 ,MK 
DO  509  JJ=1 , MJ 
DO  509  KK= 1 , MK 
GH1  =RY ( J  J ) 

GH2  =RY ( JJ+1 ) 

GV1  =RZ  KK) 

GV2  =RZ(KK+1) 

SH2  =RX(MI+1)-RX(I) 

SHI  =RX (MI+1 )-RX(I+l) 

SV1  =rz/k) 

SV2  =RZ ' K+l ) 

DDD  =PERPND ( SHI , SH2 , SV1 , SV2 , GV1 , GV2 , GH1 , GH2 ) 

WVFRER( I , K , J J , KK)=DDD/ ( (SH2-SH1 )* (SV2-SV1 ) ) 

WVFRRE ( J J , KK , I , K) =DDD/ ( (GH2-GH1 ) * (GV2-GV1 ) ) 

SWVFRE ( I ,  K)  =SWVFRE ( I , K)  +WVFRER(I ,K, JJ,KK) 

SWVFR ( J J , KK ) =SWVFR ( J J , KK ) +WVFRRE ( J J , KK , I , K ) 

509  CONTINUE  • 

WRITE (6 ,79) 

79  FORMAT (2X, 1  I,  K,SWVFRE(  I,  K)  **  JJ , KK , WVFRER( I , K , JJ , KK) , 1 , 
Sc  1  WVFRRE  (JJ,KK,  I,  K)  ,  SWVFR  (JJ,KK)',/) 

DO  80  1=1, MI 
DO  80  K=1 ,MK 

WRITE (6, 82)  I,  K, SWVFRE (  I,  K) 

82  FORMAT (2X, 1  1= ’ , 13 , '  K=',I3,'  SWVFRE= 1 , 1PE10 . 2 . / ) 

WRITE (6 , 54)  ( ( J  J , KK , WVFRER (  I,  K , JJ , KK) , WVFRRE (JJ , KK ,  I,  K) , 
Sc  SWVFRE (JJ,KK)  ,KK=1  ,MK)  ,  JJ=1  ,MJ) 

80  CONTINUE 

***  7  ===  REAR  WALL  VS  TOP  WALL,  (RE  VS  T) 

DO  508  1=1, MI 
DO  508  K=1 , MK 
DO  508  I 1=1, MI 
DO  508  JJ=1 ,MJ 
GV1  =RX(II ) 

GV2  =RX( II+l) 

GH1  =RY ( J  J ) 

GH2  =RY (JJ+1 ) 

SV1  =RX ( I ) 

SV2  =RX( 1+1 ) 

SH2  =RZ ( MK+ 1 ) - RZ ( K ) 

SHI  =RZ (MK+1 )-RZ(K+l) 

DDD  =PERPND ( SHI , SH2 , SV1 , SV2 , GV1 .GV2 , GH1 , GH2 ) 

WVFRET ( I , K , II , JJ)=DDD/ ( (SH2-SH1 ) * (SV2-SV1 ) ) 

WVFTRE(II , JJ, I ,K)=DDD/ ( (GH2-GH1 ) * (GV2-GV1 ) ) 

SWVFRE (I ,K)  = SWVFRE ( I , K)  +WVFRET(I ,K, II , JJ) 

SWVFT ( II , JJ )=SWVFT ( II , JJ) +WVFTRE (II,JJ,I,K) 

508  CONTINUE 
C 
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WRITE (6 ,33) 

83  FORMAT (2X, 1  I,  K,SWVFRE(  I,  K)  **  II , JJ , WVFRET ( I , K, II , JJ ) , ' , 
&  1 WVFTRE (II,JJ,I,K) ,  SWVFT  (II, JJ)',/) 

DO  84  1=1 ,MI 
DO  84  K=1 ,MK 

WRITE (6 ,86)  I,  K , SWVFRE (  I,  K) 

86  FORMAT (2X, 1  1= 1 , 13 , '  K=',I3,1  SWVFRE= 1 , 1PE10 . 2 . / ) 

WRITE (6.54)  ( ( II , JJ , WVFRET (  I,  K , II , JJ) , WVFTRE (II , JJ ,  I,  K), 

&  SWVFT  (II, JJ) ,JJ=1,MJ) ,11=1, MI) 

84  CONTINUE 

***  8  ===  RIGHT  WALL  VS  BOTTOM  WALL,  (R  VS  B) 

DO  512  J=1,MJ 
DO  512  K=1,MK 
DO  512  11=1, MI 
DO  512  JJ=1 ,MJ 
GH2  =RX(MI+1 ) -RX(II ) 

GH1  =RX (MI+1 ) -RX( II+l ) 

GV1  =RY ( J  J ) 

GV2  =RY ( J J+l ) 

SV1  =RY(J) 

SV2  =RY ( J  +  l ) 

SHI  =RZ (K) 

SH2  =RZ ( K+l ) 

DDD  =PERPND ( SHI , SH2 , SV1 , SV2 , GV1 . GV2 , GH1 , GH2 ) 

WVFRB ( J , K , I I , J J ) =DDD/ ( (SH2-SH1 ) * (SV2-SV1 ) ) 

WVFBR(II , JJ , J ,K)=DDD/ ( (GH2-GH1 ) * (GV2-GV1 ) ) 

SWVFR(J,K)  =SWVFR( J , K)  +WVFRB( J ,K, II , JJ) 

SWVFB ( I I , J J ) =SWVFB ( I I , J J ) +WVFBR ( I I , J J , J , K ) 

512  CONTINUE 

WRITE (6, 87) 

87  FORMAT (2X,1  I,  K,SWVFR  (  I,  K)  **  II, JJ, WVFRB  ( I , K , II , J J ) , 1 , 
&  1 WVFBR  ( I I , J J , I , K) ,  SWVFB  (II, JJ)',/) 

DO  88  1=1, MI 
DO  88  K= 1 , MK 

WRITE (6,90)  I,  K , SWVFR  (  I,  K) 

90  FORMAT (2X,1  1= 1  , 13  ,  1  K^',13,1  SWVFR  = 1  , 1PE10 . 2  . / ) 

WRITE (6.54)  ( (II ,JJ, WVFRB  (  I,  K, II ,JJ) , WVFBR  (II, JJ,  I,  K) , 

&  SWVFB  (II,JJ) ,JJ=1,MJ) ,11=1, MI) 

88  CONTINUE 

***  9  ===  RIGHT  WALL  VS  FRONT  WALL,  (R  VS  F) 

DO  510  J=1 , MJ 
DO  510  K=1,MK 
DO  510  11=1, MI 
DO  510  KK= 1 , MK 
GH2  =RX(MI+1)-RX(II) 

GH1  =RX (MI+1 ) -RX ( II+l ) 

GV1  =RZ  KK) 

GV2  =RZ (KK+1 ) 

SH2  =RY (MJ+1 ) -RY( J) 

SHI  =RY (MJ+1 ) -RY (J+l ) 

SV1  =RZ(K) 

SV2  =RZ ■  K+l ) 

DDD  =PERPND ( SHI , SH2 , SV1 , SV2 , GV1 , GV2 , GH1 , GH2 ) 

WVFRF ( J , K , II , KK)=DDD/ ( (SH2-SH1 )X(SV2-SV1)) 

WVFFR( II , KK, J ,K)=DDD/ ( (GH2-GH1 ) * (GV2-GV1 ) ) 

SWVFR (J , K)  =SWVFR(J,K)  +WVFRF ( J , K , II , KK) 

SWVFF ( II , KK)=SWVFF ( II , KK) +WVFFR ( II , KK, J , K) 

510  CONTINUE 
C 

WRITE (6, 91) 

91  FORMAT (2X, 1  J,  K, SWVFR  (  J,  K)  **  II, KK, WVFRF  ( J , K, II , KK) , ' , 
&  1  WVFFR  (II,  KK ,  J  ,  K)  ,  SVJVFF  (II, KK)',/) 

DO  92  J = 1 , M J 
DO  92  K= 1 , MK 
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WRITE (6, 94)  J,  K , SWVFR  (  J,  K) 

94  FORMAT (2X,  1  J=M3,'  K=M3,'  SWVFR  = ' , 1PE10 . 2, / ) 

WRITE (6.54)  ( (II ,KK,WVFRF  (  J,  K, II , KK) , WVFFR  (II, KK,  J,  K)  , 

&  SWVFF  (II ,KK) ,KK=1 ,MK) , 11=1 , MI) 

92  CONTINUE 

***  10  ===  RIGHT  WALL  VS  TOP  WALL,  (R  VS  T) 

DO  511  J=1 ,MJ 
DO  511  K=1 , MK 
DO  511  11=1, HI 
DO  511  JJ=1,MJ 
GH2  =RX(MI+1 ) -RX(II ) 

GH1  =RX(MI+l)-RX(II+l) 

GV1  =RY(JJ) 

GV2  =RY { JJ+1 ) 

SV1  =RY ( J ) 

SV2  =RY { J+l ) 

SH2  =RZ i MK+1 ) -RZ (K) 

SHI  =RZ  ■:  MK+1 )  -RZ (K+l ) 

DDD  =PERPND ( SHI . SH2 , SV1 , SV2 , GV1 . GV2 , GH1 , GH2 ) 

WVFRT (J,K,II,JJ) =DDD/ ((SH2-SH1)*(SV2-SV1)) 

WVFTRfll, JJ, J,K)=DDD/((GH2-GH1)*(GV2-GV1)) 

SWVFR ( J , K)  =SWVFR( J , K)  +WVFRT ( J , K , II , J J ) 

SWVFT ( I I , J J ) =SWVFT ( I I , J J ) +WVFTR  ( I I , J J , J , K ) 

511  CONTINUE 

WRITE (6, 95) 

95  FORMAT (2X, 1  J,  K, SWVFR  (  J,  K)  **  II, JJ, WVFRT  (J ,K, II , JJ) , ' , 
&  1 WVFTR  ( II , J J , J , K) ,  SWVFT  (II, JJ) ' ,/) 

DO  96  J=1 ,MJ 
DO  96  K= 1 , MK 

WRITE  (6, 98)  J,'  K,  SWVFR  (  J,  K) 

98  FORMAT (2X, 1  J= ' , 13 , '  K=',I3,1  SWVFR  = 1 , 1PE10 . 2  / ) 

WRITE (6,54)  ((II, JJ, WVFRT  (  J,  K, II ,JJ) , WVFTR  (II, JJ,  J,  K), 
&  SWVFT  (II, JJ) , JJ=1,MJ) ,11=1, MI) 

96  CONTINUE 

***  11  ===  FRONT  wall  vs  bottom  wall,  (f  vs  b) 

DO  593  1=1, MI 
DO  593  K= 1 , MK 
DO  593  11=1, MI 
DO  593  JJ=1 , MJ 
GV1  =RX ( II ) 

GV2  =RX ( II+l ) 

GH2  =RY  MJ+l)-RY(JJ) 

GH1  =RY (MJ+1 ) -RY( J J+l ) 

SV1  =RX( I ) 

SV2  =RX( 1+1) 

SHI  =  RZ(K) 

SH2  =  RZ (K+l ) 

DDD  =PERPND ( SHI . SH2 , S VI , S V2 , GV1 . GV2 , GH1 , GH2 ) 

WVFFB  (I  ,K ,  II ,  JJ )=DDD/  ( (SH2-SH1 )  MSV2-SV1 )  ) 

WVFBF(II , JJ,I ,K)=DDD/( (GH2-GH1 ) * (GV2-GV1 ) ) 

SWVFF ( I , K)  =SWVFF ( I , K)  +WVFFB ( I , K , II , JJ ) 

SWVFB(II, JJ)=SWVFB(II, J J )+WVFBF ( II , JJ,I,K) 

593  CONTINUE 
C 

WRITE (6,43) 

43  FORMAT (2X, 1  I,  K, SWVFF  (  I,  K)  **  II, JJ, WVFFB  ( I , K , II , JJ ) , 1 , 
&  1 WVFBF  ( II , J J , I , K) ,  SWVFB  (II, JJ)',/) 

DO  44  1=1, MI 
DO  44  K=1 , MK 

WRITE (6,46)  I,  K, SWVFF  (  I,  K) 

46  FORMAT (2X, 1  1= '  , 13  ,  1  K=',I3,1  SWVFF  ='  , 1PE10 .2 . /) 

WRITE (6.54)  ((II, JJ, WVFFB  (  I,  K, II , JJ) , WVFBF  (II, JJ,  I,  K) , 
&  SWVFB  (il , JJ) , JJ=1 , MJ) , 11=1 ,MI ) 

44  CONTINUE 


134 


non 


***  12  ===  FRONT  WALL  VS  TOP  WALL,  (F  VS  T) 


C 


C 


DO  513  1=1, MI 
DO  513  K=1 , MK 
DO  513  11=1, MI 
DO  513  JJ=1,MJ 
GV1  =RX (II) 

GV2  =RX ( I 1+1 ) 

GH2  =RY(MJ+1)-RY(JJ) 

GH1  =RY (MJ+1 ) -RY ( JJ+1 ) 

SV1  =RX ( I ) 

SV2  =RX( 1+1 ) 

SH2  =RZ(MK+1)-RZ(K) 

SHI  =RZ ( MK+1 ) -RZ (K+l ) 

DDD  =PERPND ( SHI . SH2 , SV1 , SV2 , GV1 , GV2 , GH1 , GH2 ) 
WVFFT ( I , K , II , JJ )=DDD/ ( (SH2-SH1 ) x (SV2-SV1 ) ) 
WVFTF (II, JJ,I ,K)=DDD/( (GH2-GH1 ) * (GV2-GV1 ) ) 
SWVFF { I , K)  =SWVFF ( I , K)  +WVFFT ( I , K , II , JJ) 
SWVFT ( II , JJ) =SWVFT (II, JJ)+WVFTF (II,JJ,I,K) 
513  CONTINUE 


WRITE (6, 47) 

47  FORMAT (2X, 1  I,  K, SWVFF  (  I,  K)  **  II, JJ, WVFFT  (I , K, II , JJ) , ' , 
&  1 WVFTF  ( II , J J , I , K) ,  SWVFT  (II, JJ)',/) 

DO  43  1=1, MI 
DO  48  K= 1 , MK 

WRITE (6,99)  I,  K, SWVFF  (  I,  K) 

99  FORMAT (2X, 1  1= ' , 13 , '  K= ' ,13, '  SWVFF  = 1 , 1PE10 , 2 . / ) 

WRITE (6.54)  ((II, JJ, WVFFT  (  I,  K, II , JJ) , WVFTF  (II, JJ,  I,  K) , 
Sc  SWVFT  (II, JJ) , JJ=1,MJ) ,11=1, MI) 

48  CONTINUE 


RETURN 

END 

SUBROUTINE  HSTWAL (NN . KSS, IP, JP, KP) 


c 


c 


c 


c 


c 


COMMON  /BL3/  VFMXR (67 , 67 ) , SMXVFW (67 ) , SMXVFH(67 ) 

COMMON  /BL4/  WVFLR ( 3 , 3 , 3 , 3 ) , WVFLRE ( 3 , 3 , 4 , 3 ) , WVFLF ( 3 , 3 , 4 , 3 ) , 

Sc  WVFLT ( 3 , 3 , 4 , 3 ) , WVFRRE ( 3 , 3 , 4 , 3 ) , WVFRF (3 , 3 , 4 , 3) , WVFRB (3 ,3,4,3), 

Sc  WVFRT ( 3 , 3 , 4 , 3 ) , WVFRL  (3 , 3 , 3 , 3 ) , WVFFL (4 , 3 , 3 , 3 ) , WVFFB (4 , 3,4,3), 

Sc  WVFFT (4, 3, 4, 3) , WVFFRE (4 , 3 , 4 , 3 ) , WVFFR (4 , 3 , 3 , 3 ) , WVFBT (4 , 3 , 4 , 3 ) , 

Sc  WVFBL (4 ,3,3,3), WVFBRE (4 ,3,4,3) , WVFBF (4 , 3 , 4 , 3 ) ,WVFBR(4,3 ,3 , 3) , 

Sc  WVFTL ( 4 , 3 , 3 , 3 ) . WVFTRE (4,3,4,3k WVFTF ( 4 , 3 , 4 , 3 )  , WVFTR ( 4 , 3 , 3 , 3 ) , 

&  WVFRET  (4 , 3 , 4 , 3  )  ,  WVFREF (4 , 3 , 4 , 3 )  , WVFRER(4 ,3,3,3)  ,  WVFTB (4 , 3 , 4 , 3 ) 
Sc  WVFREL ( 4 , 3 , 3 , 3 ) , WVFREB ( 4 , 3 , 4 , 3 ) , WVFLB( 3 , 3 , 4 , 3 ) 

COMMON  /BL5/ 

&  VFHSR (3,3) , VFHSF (4,3) ,VFHSRE(4,3) ,VFHST(4,3) ,VFHSB(4,3) , 

&  VFRHS (3,3) , VFFHS (4,3) , VFREHS (4 , 3 ) , VFTHS (4 , 3 ) ,VFBHS  4,3) , 

Sc  VFHSL (3,3) , VFLHS (3,3) 


COMMON  /BL6/  VFLHT (3,3) , VFRHT (3,3) , VFFHT (4,3) , VFREHT (4,3) , 


&  VFFHR( 3 , 3 ) , VFRHR( 3 , 3 
'&  VFLHL (3,3). VFFHL (4,3 
Sc  VFLHRE (3,3), VFRHRE ( 3 
&  VFLHF (3,3), VFRHF (3,3 
&  VFLHB (3,3) , VFRHB (3,3 
Sc  VFTHT(4, 3) 


, VFREHR(4 , 3) ,VFTHR(4,3) ,VFBHR(4,3) , 

, VFREHL(4 , 3) , VFTHL(4 , 3 ) ,VFBHL(4,3) , 

3) , VREHRE(4 , 3) ,VFTHRE(4,3) ,VFBHRE(4,3) , 
, VFFHF (3,3) , VFTHF (4,3). VFBHF (4,3). 

, VFFHB (4 , 3 ) , VFREHB (4,3) , VFBHB (4,3), 


COMMON  /BL7/  VFHTL (3,3) , VFHTR (3,3 
&  -VFHRF (3,3) , VFHRR (3,3), VFHRRE (4,3 
Sc  VFHLL  (3,3)  .  VFHLF  (4,3) 

&  VFHREL ( 3 , 3 ) , VFHRER( 3  ' 

Sc  VFHFL  (3,3'  "  * 

Sc  VFHBL  (3,3 
Sc  VFHTT (4,3 


, VFHTF (4,3) , VFHTRE (4,3) 
, VFHRT (4,3) , VFHRB (4 , 3  j , 


VFHLRE(4' 3) , VFHLT (4,3) ,VFHLB(4,3; 

. . „w,3)  ,  VHRERE  (4,3)  ,VFHRET(4,3)  ,VFHREB(4,3)  , 

,  VFHFR  (3,3),  VFHFF  (3,-3)  ,  VFHFT  (4,3).  VFHFB  (4,3). 
,VFHBR(3,3) ,VFHBF(4,3) ,VFHBRE(4,3) ,VFHBB(4,3) , 
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COMMON  /BL8/  X( 22 ) , Y( 18) , Z ( 18 ) ,NOD (22 , 18 , 18) , 

&  RX ( 5 ) ,  RY ( 4 ) , RZ ( 4 ) ,AREA(67) ,ZX(5) ,ZY(4) ,ZZ(4) 

C 

COMMON  /BL9/  SWVFRE(4,3) ,SWVFL(3 ,3) , SWVFR( 3 , 3 ) , SWVFF(4 , 3 ) , 

&  SWVFT(4,3) ,SWVFB(4,3) 

COMMON  /BL10/  NZ , DX, DY , DZ , DXY , DYZ , DZX , WC , DC , HC 
C 

COMMON  /BL1/  NI , N J , NK , MINI , NJM1 , NKM1 , NIM2 , NJM2 , NKM2 , 

Sc  MI , M J , MK , Mil , MJ J , MKK , MIM , MIP , MJM , MJP , MKM , MKP , 

&  MUM ,  MIIP  ,  MJ  JM  ,MJ  JP  ,MKKM  ,MKKP  , 

Sc  IREGN1 , IREGN2 , IREGN3 , IREGN4 , IREGN5 , IREGN6 , IREGN7 , 

Sc  MREGN1 , MREGN2 , MREGN3 , MREGN4 , MREGN5 , MREGN6 , MREGM7 
C 

COMMON  /BL2/  IB , IE , IBM1 , IBP1 , IEM1 , IEP1 , 

Sc  JB , JE , JBM1 , JBP1 , JEM1 , JEP1 , 

Sc  KB , KE , KBM1 , KBP1 , KEM1 , KEPI 

COMMON/BL11/  MI IZ(9 ) , MJ JZ (9 ) , MKKZ ( 9 ) , IS ( 6 ) , LTYPE (9,6), 

Sc  LI  (9 )  ,  LJ  ( 9 )  ,LK(9) ,AYZ(9)  , AXY(9) ,AZX(9)  , 

&  NHSZ , ITHIN(9 ) , JTHIN ( 9 )  . KTHIN ( 9 ) , 

&  IHSB(9) ,NHSW(9) , JHSB(9) ,NHSD(9) ,KHSB(9) ,NHSH(9) 

DIMENSION  NN ( 6 ) 

**7tK7SK*****itK****7t7t***K********7Z7t*7t**7?**7t***7'7r*7<:'k*-k7t‘k7''k*7t-k7:'k'k 

***  THE  VIEW  FACTOR  BETWEEN  HEAT  SOURCE  AND  WALL  SURFACE  **** 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


kkk 

kkk 


THERE  ARE  6  TYPES  OF  SURFACES  CAN  BE  CONSIDERED  INSIDE  THE 


THE 

ENCLOSURE 

1ST 

TYPE  :  LEFT  SIDE  OF 

-X  DIRECTION. 

THE 

HEAT 

SOURCE,  IT 

SEES 

ONLY 

THE 

2ND 

TYPE  :  RIGHT  SIDE  OF 
+X  DIRECTION. 

THE 

HEAT 

SOURCE,  IT 

SEES 

ONLY 

THE 

3RD 

TYPE  :  REAR  SIDE  OF 

-Y  DIRECTION. 

THE 

HEAT 

SOURCE,  IT 

SEES 

ONLY 

THE 

4TH 

TYPE  :  FRONT  SIDE  OF 
+Y  DIRECTION. 

THE 

HEAT 

SOURCE,  IT 

SEES 

ONLY 

THE 

5TH 

TYPE  :  BOTTOM  SIDE  OF 
-Z  DIRECTION. 

THE 

HEAT 

SOURCE,  IT 

SEES 

ONLY 

THE 

6TH 

TYPE  :  TOP  SIDE  OF 

+Z  DIRECTION. 

THE 

HEAT 

SOURCE,  IT 

SEES 

ONLY 

THE 

FIRST,  CALCULATE  THE  VIEW  FACTOR  BETWEEN  EACH  SIDE  OF  HEAT 
SOURCE  AND  WALL  SURFACE 

***  THE  1ST  TYPE  OF  SURFACE 

IF (NN ( 1 ) . EQ . 0)  GO  TO  101 
MIIQ=MIIP 


**  (A)  LEFT  SIDE  OF  THE  HEAT  SOURCE  (HL)  VS  WALL  SURFACE 


7^ 


1 .  HL  VS  L 

2 .  HL  VS  B 

3 .  HL  VS  T 

4 .  HL  VS  RE 

5 .  HL  VS  F 
L  TO  HL 


GHZ=RX(MII) 
SH1=RY(MJJ) 
SH2=RY (MJJP) 
SV1=RZ(MKK) 
SV2=RZ (MKKP ) 
DO  5  J=1 ,MJ 
DO  5  K=1,MK 
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GH1  =RY ( J ) 

GH2  =RY  J+l) 

GV1  =RZ  K) 

GV2  =RZ (K+l  )• 

DDD  =PARLEL ( SHI , SH2 , SV1 , SV2 , GV1 /GV 2 , GH1 , 

&  GH2 , GHZ ) *GHZ*GHZ 

VFLHL ( J , K)=DDD  / ( ( GV2-GV1 ) * (GH2-GH1 ) ) 

VFHLL( J , K)=DDD  / ( (SV2-SV1 )*(SH2-SH1 ) ) 

5  CONTINUE 

WRITE (6 , 621 ) 

621  FORMAT (/, 5X , ‘VFLHL(J,K) /VFHLL,K=1 ,HK,  J=  1,  MJ)',/) 

WRITE (6 , 602)  ((  J,  K, VFLHL (J , K) , VFHLL(J , K) , K=1 ,MK) , J=1 ,MJ) 
602  FORMAT(2I3 , 2E12 .4) 

*  2 .  B  TO  HL 

SH1=RZ(MKK) 

SH2=RZ  MKKP) 

SV1=RY  MJJ) 

SV2=RY (MJJP) 

DO  19  1  =  1,  MUM 
GH1=RX(MII ) -RX(I+1 ) 

GH2=RX(MII)-RX(I) 

DO  19  J=1 ,MJ 
GV1=RY ( J ) 

GV2=RY( J+l ) 

DDD=PERPND ( SHI , SH2 , SV1 , SV2 . GV1 , GV 2 , GH1 , GH2 ) 

VFBHL ( I , J)=DDD  / ( ( GV2-GV1 ) X(GH2-GH1 ) ) 

VFHLB ( I , J ) =DDD  / ( ( SV2-SV1 ) * ( SH2-SH1 ) ) 

19  CONTINUE 

WRITE (6,623) 

623  FORMAT (/ , 5X, 1 VFBHL (I , J) , VFHLB , J=1 ,  MJ,  1=1 ,MIIM) ' , / ) 

WRITE (6 , 602)  ((  I,  J , VFBHL (I , J) , VFHLB (I , J) , J=1 ,MJ) , 1=1 ,MIIM) 

*  3 .  T  TO  HL 

SH 1 =RZ ( MKP ) - RZ ( MKKP ) 

SH2=RZ  MKP)-RZ(MKK) 

SV1=RY  MJJ) 

SV2=RY(MJJP ) 

DO  21  1  =  1  ,  MUM 
GH1=RX(MI I ) -RX( 1+1 ) 

GH2=RX(MIl)-RX(I) 

DO  21  J=1 , MJ 
GV1=RY( J) 

GV2=RY( J+l ) 

DDD=PERPND ( SHI , SH2 , SV1 , SV2 . GV1 , GV2 , GH1 , GH2 ) 

VFTHL( I , J )=DDD  /( (GV2-GV1 )*(GH2-GH1 ) ) 

VFHLT ( I , J )=DDD  / ( (SV2-SV1 )*(SH2-SH1 ) ) 

21  CONTINUE 

WRITE (6, 625) 

625  FORMAT (/ , 5X, 1 VFTHL( I , J ) , VFHLT , J=1 ,MJ ,  1=1 ,MIIM) ' ,/) 

WRITE (6 , 602)  ((  I,  J , VFTHL( I , J) , VFHLT ( I , J) , J=1 ,MJ) , 1=1 ,MIIM) 

*  4.  RE  TO  HL 

SH1=RY (MJJ ) 

SH2=RY (MJJP) 

SV1=RZ  MKK) 

SV2=RZ(MKKP) 

DO  18  1  =  1, MUM 
GH1=RX(MII ) -RX( 1+1 ) 

GH2=RX(MII ) -RX( I ) 

DO  18  K=1 ,MK 
GV1=RZ(K) 

GV2=RZ (K+l ) 
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DDD=PERPND (SHI , SH2 , SV1 , SV2 . GV1 , GV2 , GH1 , GH2 ) 

VFREHL(I ,K)=DDD/( (GV2-GV1 ) *(GH2-GH1 ) ) 

VFHLRE ( I , K)=DDD/ ( (SV2-SV1 )*(SH2-SH1 ) ) 

18  CONTINUE 
C 

WRITE (6 ,627) 

627  FORMAT  ( / , 5X ,  1  VFREHL(  I  ,K)  , K=1 .MK ,  1=1 , MUM)  1  ,  /  ) 

WRITE (6,602)  ((  I,  K,VFREHL(I ,K) , VFHLRE (I ,  K) ,K=1 ,MK) , 1=1 ,MIIM) 

*  5.  F  TO  HL 

SH1=RY (MJP ) -RY (MJJP ) 

SH2=RY (MJP )  -RY (MJJ ) 

SV1=RZ (MKK ) 

SV2=RZ (MKKP ) 

DO  22  1  =  1, MUM 
GH1=RX(MII)-RX(I+1) 

GH2=RX (Mil ) -RX ( I ) 

DO  22  K=1 ,MK 
GV1=RZ(K) 

GV2=RZ (K+l ) 

DDD=PERPMD ( SHI , SH2 , SV1 , SV2 , GV1 , GV2 . GH1 , GH2 ) 

VFFHL( I ,K)=DDD/ ( (GV2-GV1 ) * (GH2-GH1 ) ) 

VFHLF(I ,K)=DDD/( (SV2-SV1 ) * (SH2-SH1 ) ) 

22  CONTINUE 

WRITE (6 , 629) 

629  FORMAT (/ ,5X, 'VFREHL( I, K) , VFHLRE, K=1,MK,  1=1 ,MIIM) 1 , /) 

WRITE(6,602)  ((  I,  K ,  VFREHL(  I ,  K)  ,  VFHLRE  ( I ,  K)  ,  K=1  ,MK)  ,  1  =  1 ,  MUM) 

***  THE  2ND  TYPE  OF  SURFACE 

101  CONTINUE 

I F ( NN ( 2 ) . EQ . 0 )  GO  TO  102 
MIIQ=MII+IP 


**  (B)  RIGHT  SIDE  OF  THE  HEAT  SOURCE  (HR)  VS  WALL  SURFACE 


1. 

HR 

VS 

RE 

2. 

HR 

VS 

B 

3. 

HR 

vs 

T 

4. 

HR 

vs 

F 

5. 

HR 

vs 

R 

RE  TO 

HR 

SH1=RY (MJJ) 

SH2=RY (MJJP) 

SV1=RZ (MKK) 

SV2=RZ (MKKP ) 

DO  24  I=MIIQ , MI 
GH1=RX( I ) -RX(MIIQ) 

GH2=RX( 1+1 ) -RX(MIIQ) 

DO  24  K=1 ,MK 
GV1=RZ(K) 

GV2=RZ (K+l ) 

DDD=PERPND ( SHI , SH2 , SV1 , SV2 . GV1 , GV2 , GH1 , GH2 ) 

VFREHR( I , K)=DDD/ ( (GV2-GV1 )*(GH2-GH1 ) ) 

VFHRRE ( I ,K)=DDD/ ( (SV2-SV1 )* (SH2-SH1 ) ) 

24  CONTINUE 

WRITE (6,631) 

631  FORMAT ( / , 5X, 1 VFREHR ( I , K) , VFHRRE , K=1 ,MK , I=MIIP ,MI ) 1 ,/) 

WRITE (6,602)  ((  I,  K , VFREHR( I , K) , VFHRRE ( I , K) , K=1 , MK) , I=MIIQ ,MI ) 

*2.  B  TO  HR 

SH1=RZ (MKK) 
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SH2=RZ (MKKP) 

SV1=RY (MJJ ) 

SV2=RY (MJJP ) 

DO  20  I=MIIQ ,MI 
GH1=RX ( I ) -RX(MIIQ) 

GH2=RX( 1+1 ) -RX(MIIQ) 

DO  20  J=1 ,MJ 
GV1=RY ( J ) 

GV2=RY ( J+l ) 

DDD=PERPND ( SHI , SH2 , SV1 , SV2 , GV1 , GV2 .  GH1 , GH2 ) 

VFBHR ( I , J ) =DDD/ ( (GV2-GV1 ) *(GH2-GH1 ) ) 

VFHRB ( I , J )=DDD/ ( ( SV2-SV1 ) * ( SH2-SH1 ) ) 

20  CONTINUE 

WRITE (6 , 633) 

633  F0RMAT(/, 5X, 1 VFBHR( I , J) , VFHRB , J=1 ,MJ , I=MIIP ,MI ) 1 ,  / ) 

WRITE ( 6 , 602 )  ((  I,  J, VFBHR (I , J ) , VFHRB (I , J) , J=1 ,MJ)  , I=MIIQ ,MI ) 

*  3 .  T  TO  HR 

SHI =RZ (MKP ) -RZ (MKKP) 

SH2=RZ(MKP ) -RZ(MKK) 

SV1=RY (MJJ ) 

SV2=RY(MJJP) 

DO  23  I=MII0 ,MI 
GH1=RX(I)-RK(MIIQ) 

GH2=RX( 1+1 ) -RX(MIIQ) 

DO  23  J=1 ,MJ 
GV1=RY(J) 

GV2=RY( J+l ) 

DDD=PERPND ( SHI , SH2 , S VI , SV2 , GV1 , GV2 . GH1 , GH2 ) 

VFTHR ( I , J ) =DDD/ ( (GV2-GV1 ) * ( GH2-GH1 ) ) 

VFHRT ( I , J ) =DDD/ ( ( SV2-SV1 ) * ( SH2-SH1 ) ) 

23  CONTINUE 

WRITE (6,635) 

635  FORMAT!/, 5X, 'VFTHR(I,J) , VFHRT , J=1 ,MJ , I=MIIP , MI ) ' ,/) 

WRITE ( 6 , 602 )  ((  I,  J , VFTHR ( I , J ) , VFHRT (I,J),J=1,MJ), I=MI IQ , MI ) 

*4.  F  TO  HR 

SH1=RY(MJP) -ry(mjjp) 

SH2=RY (MJP ) -RY(MJJ) 

SV1=RZ(MKK) 

SV2=RZ(MKKP) 

DO  25  I=MIIQ,MI 
GH1=RX( I)-RX(MIIQ) 

GH2=RX(l+l)-RX(MIIQ) 

DO  25  K=1,MK 
GV1=RZ(K) 

GV2=RZ(K+1 ) 

DDD=PERPND ( SHI , SH2 , SV1 , SV2 , GV1 , GV2 . GH1 , GH2 ) 

VFFHR(I ,K)=DDD/( (GV2-GV1 ) * (GH2-GH1 ) ) 

VFHRF ( I , K ) =DDD/ ( ( SV2-SV1 ) * ( SH2-SH1 ) ) 

25  CONTINUE 

WRITE (6, 637) 

637  FORMAT!/, 5X, ' VFFHR(I ,K) , VFHRF , K=1 ,MK , I=MIIP , MI ) ' , / ) 

WRITE (6 , 602)  ((  I,  K, VFFHR( I , K) , VFHRF ( I , K) , K=1 ,MK) , I=MIIQ ,MI ) 

*  5.  R  TO  HR 

GHZ=RX(MIP) -RX(MIIQ) 

SH1=RY (MJJ ) 

SH2=RY(MJJP ) 

SV1=RZ (MKK) 

SV2=RZ (MKKP ) 

DO  6  J=1,MJ 
DO  6  K=1 ,MK 
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GH1  =RY ( J) 

GH2  =RY ( J+l ) 

GV1  =RZ(K) 

GV2  =RZ(K+1) 

DDD=PARLEL( SHI , SH2 , SV1 , SV2 , GV1 , GV2 , GH1 , 

&  GH2,GHZ)*GHZ*GHZ 
VFRHR(J,K)=DDD/( (GV2-GV1 ) * (GH2-GH1 ) ) 

VFHRR( J,K)=DDD/( (SV2-SV1 )*(SH2-SH1 ) ) 

6  CONTINUE 
C 

WRITE (6, 639) 

639  FORMAT (/ ,  5X, ' VFRHR( J ,K) , VFHRR, K=1 ,HK,J=1,  MJ)',/) 

WRITE (6 , 602 )  ((  J,  K,VFRHR( J,K) fVFHRR( J,K) ,K=1 ,MK) , J=1 ,MJ) 

***  THE  3RD  TYPE  SURFACE 

102  CONTINUE 

IF (NN(3 ) . EO . 0 )  GO  TO  103 
MJJQ=MJJP 


**  (C)  REAR  SIDE  OF  THE  HEAT  SOURCE  (HRE)  VS  WALL  SURFACE 


1 .  HRE  VS  RE 

2.  HRE  VS  L 

3.  HRE  VS  R 

4.  HRE  VS  B 
4.  HRE  VS  T 

*  1.  RE  TO  HRE 

GHZ=RY (MJJ ) 

SH1=RZ  MKK) 

SH2=RZ  MKKP) 

SV1=RX(MI I ) 

SV2=RX(MIIP) 

DO  7  1=1 , MI 
DO  7  K= 1 , MK 
GV1  =RX( I ) 

GV2  =RX(I+1) 

GH1  =RZ(K) 

GH2  =RZ(K+1 ) 

DDD=PARLEL ( SHI , SH2 , SV1 , SV2 , GV1 , GV2 , GH1 , 

&  GH2,GHZ)*GHZ*GHZ 
VREHRE(l,K)=DDD/( (GV2-GV1 ) A(GH2-GH1 ) ) 

VHRERE(I ,K)=DDD/( (SV2-SV1 )*(SH2-SH1 ) ) 

7  CONTINUE 

WRITE (6,641) 

641  FORMAT ( / , 5X , 1 VREHRE ( I , K) , VHRERE , K=1 ,MK , 1=  1,MI)',/) 

WRITE (6 , 602 )  ({  I,  K, VREHRE ( I , K) , VHRERE ( I , K) , K=1 , MK) , 1=1 , MI ) 

*  2.  L  TO  HRE 

SH1=RX(MII ) 

SH2=RX(MIIP) 

SV1=RZ(MKK) 

SV2=RZ(MKKP) 

DO  26  J=1 , MJJM 
GH1=RY (MJJ ) -RY( J+l ) 

GH2=RY(MJJ)-RY(J) 

DO  26  K=1 , MK 
GV1=RZ (K) 

GV2=RZ (K+l ) 

DDD=PERPND (SHI , SH2 , SV1 , SV2 . GV1 , GV2 , GH1 , GH2 ) 

VFLHRE ( J , K)=DDD/ ( (GV2-GV1 ) * (GH2-GH1 ) ) 

VFHREL ( J , K)=DDD/ ( (SV2-SV1 )*(SH2-SH1 ) ) 

26  CONTINUE 
C 
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WRITE (6 ,643) 

643  FORMAT (/, 5X, 1 VFLHRE (  J,  K) , VFHREL , K=1 , MK . J=1 , MJJM) ' , / ) 

WRITE (6 , 602 )  ((  J,  K, VFLHRE( J,K) ,VFHREL( J,K) ,K=1 ,MK) , J=1 ,MJJM) 

*3.  R  TO  HRE 

SH1=RX(MIP) -RX(MIIP) 

SH2=RX( MIP ) -RX(MII ) 

SV1=RZ(MKK) 

SV2=RZ (MKKP) 

DO  27  J=1,MJJM 
GH1=RY(MJJ ) -RY( J+l ) 

GH2=RY(MJJ)-RY(J) 

DO  27  K= 1 , MK 
GV1=RZ (K) 

GV2=RZ (K+l ) 

DDD=PERPND ( SHI , SH2 , SV1 , SV2 . GV1 , GV2 , GH1 , GH2 ) 

VFRHRE ( J , K) =DDD/ ( (GV2-GV1 )X(GH2-GH1 ) ) 

VFHRER ( J  ,  K ) =DDD/ ( (SV2-SV1 ) * (SH2-SH1 ) ) 

27  CONTINUE 

WRITE (6 , 645 ) 

645  FORMAT (/ , 5X , 1 VFRHRE (J , K) ,VFHRER,K=1 ,MK, J=1 ,MJJM) 1 ,/) 

WRITE (6,602)  ((  J,  K , VFRHRE (J , K) , VFHRER(J , K) , K=1 , MK) , J=1 , MJJM) 

*  4 .  B  TO  HRE 

SH1=RZ (MKK) 

SH2=RZ (MKKP ) 

SV1=RX(MII) 

SV2=RX(MIIP ) 

DO  28  J=1,.MJJM 
GH1=RY(MJJ)-RY(J+1) 

GH2=RY(MJJ)-RY(J) 

DO  28  1=1, MI 
GV1=RX( I ) 

GV2=RX( 1+1 ) 

DDD=PERPND (SHI , SH2 , SV1 , SV2 . GV1 , GV2 , GH1 , GH2 ) 

VFBHRE (I , J) =DDD/ ( (GV2-GV1 ) X(GH2-GH1 ) ) 

VFHREB ( I , J ) =DDD/ ( ( SV2-SV1 ) * (SH2-SH1 ) ) 

28  CONTINUE 

WRITE (6 , 647 ) 

647  FORMAT ( / , 5X , 1 VFBHRE ( I , J ), VFHREB , J=1 , MJJM . 1=1 , MI ) ' ,/) 

WRITE ( 6 , 602 )  ((  I,  J , VFBHRE ( I , J) , VFHREB ( I , J) , J=1 , MJJM) , 1=1 , MI ) 

*  5.  T  TO  HRE 

SHI =RZ ( MKP ) - RZ ( MKKP ) 

SH2=RZ (MKP ) -RZ (MKK) 

SV1=RX(MI I ) 

SV2=RX(MI IP ) 

DO  29  J=1 ,MJJM 
GH1=RY (MJJ ) -RY( J+l ) 

GH2=RY (MJJ ) -RY ( J) 

DO  29  1=1, MI 
GV1=RX( I ) 

GV2=RX ( 1+1 ) 

DDD=PERPND ( SHI , SH2 , SV1 , SV2 . GV1 , GV2 , GH1 , GH2 ) 

VFTHRE(I ,  J)=DDD/  ( (GV2-GV1 )  7C(GH2-GH1 ) ) 

VFHRET ( I , J )=DDD/ ( ( SV2-SV1 )*(SH2-SH1 ) ) 

29  CONTINUE 

WRITE(6 , 649) 

649  FORMAT (/,5X, 'VFTHRE(I,J) , VFHRET , J=1 , MJJM , 1=1 , MI ) 1 ,/) 

WRITE (6, 602)  ((  I,  J , VFTHRE ( I , J) , VFHRET ( I , J) , J=1 ,MJJM) , 1=1 ,MI ) 

***  THE  4TH  TYPE  SURFACE 
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103  CONTINUE 

I F ( NN ( 4 ) .EQ.O)  GO  TO  104 
MJJQ=MJJ+JP 


**  (D)  FRONT  SIDE  OF  THE  HEAT  SOURCE  (HF)  VS  WALL  SURFACE 


1. 

HF 

VS 

F 

2. 

HF 

VS 

L 

3. 

HF 

VS 

R 

4. 

HF 

VS 

B 

5. 

HF 

VS 

T 

F  TO 

HF 

GHZ=RY (MJP ) -RY (MJ JQ ) 

SH1=RZ(MKK) 

SH2=RZ (MKKP ) 

SV1=RX(MII ) 

SV2=RX(MIIP) 

DO  8  1=1, MI 
DO  8  K= 1 , MK 
GH1  =RZ(K) 

GH2  =RZ(K+1) 

GV1  =RX(I) 

GV2  =RX( 1+1 ) 

DDD=PARLEL ( SHI , SH2 , SV1 , SV2 , GV1 , GV2 , GH1 , 

&  GH2,GHZ)*GHZ*GHZ 
VFFHF ( I , K)=DDD/ ( (GV2-GV1 )*(GH2-GH1 ) ) 

VFHFF ( I , K)=DDD/ ( (GV2-GV1 ) * (GH2-GH1 ) ) 

8  CONTINUE 

WRITE (6,651) 

651  FORMAT (/ , 5X, 'VFFHF (I ,K) , VFHFF , K=1 ,MK, 1=1 , MI ) 1 ,/) 

WRITE (6 , 602 )  ((  I,  K , VFFHF( I , K) , VFHFF ( I , K) , K=1 ,MK) , 1=1 ,MI ) 

*  2 .  L  TO  HF 

SH1=RX(MII) 

SH2=RX(MIIP) 

SV1=RZ(MKK) 

SV2=RZ (MKKP ) 

DO  30  J=MJJQ,MJ 
GH1=RY( J) -RY (MJJQ) 

GH2=RY( J+l ) -RY (MJJQ) 

DO  30  K=1 ,MK 
GV1=RZ(K) 

GV2=RZ(K+1) 

DDD=PERPND ( SHI , SH2 , SV1 , SV2 , GV1 , GV2 . GH1 , GH2 ) 

VFLHF ( J , K)=DDD/ ( (GV2-GV1 ) *(GH2-GH1 ) ) 

VFHFL ( J , K)=DDD/ ( (SV2-SV1 ) * (SH2-SH1 ) ) 

30  CONTINUE 

WRITE (6,653) 

653  FORMAT(/, 5X, ' VFLHF ( J , K) , VFHFL , K=1 , MK , J=MJJP ,MJ) ' ,/) 

WRITE ( 6 , 602 )  ((  J,  K , VFLHF (J , K) , VFHFL (J , K) , K=1 ,MK) , J=MJJQ,MJ) 

*3.  R  TO  HF 

SH1=RX(MIP) -RX(MIIP) 

SH2=RX(MIP)-RX(MII) 

SV1=RZ(MKK) 

SV2=RZ (MKKP ) 

DO  31  J=MJJQ ,MJ 
GH1=RY ( J) -RY(MJJQ) 

GH2=RY( J+l )-RY (MJJQ) 

DO  31  K=1 ,MK 
GV1=RZ(K) 

GV2=RZ(K+1 ) 
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DDD=PERPND ( SHI , SH2 , SV1 , SV2 , GV1 , GV2 , GH1 , GH2 ) 

VFRHF ( J ,K)=DDD/ ( (GV2-GV1 )* (GH2 -GH1 ) ) 

VFHFR ( J , K ) =DDD/ ( ( SV2 -SV1 ) * ( SH2 - SHI ) ) 

31  CONTINUE 

WRITE (6, 655) 

655  FORMAT (/ , 5X , 1 VFRHF ( J ,  K) , VFHFR , K=1 ,MK , J=MJJP , MJ) ' ,/) 

WRITE (6,602)  ((  J,  K, VFRHF (J , K) , VFHFR (J , K) , K=1 , MK) , J=MJJQ , MJ) 

*  4 .  B  TO  HF 

SH1=RZ (MKK) 

SH2=RZ(MKKP) 

SV1=RX(MII) 

SV2=RX(MIIP) 

DO  32  J=MJJQ , MJ 
GH1=RY ( J) -RY (MJJQ) 

GH2=RY( J+l ) -RY (MJJQ) 

DO  32  1=1, MI 
GV1=RX(I ) 

GV2=RX(I+l) 

DDD=PERPND (SHI , SH2 , SV1 , SV2 , GV1 , GV2 . GH1 , GH2 ) 

VFBHF  ( I ,  J)=DDD/  ( (GV2-GV1 )  *  ( GH2-C-H1 ) ) 

VFHFB ( I , J ) =DDD/ ( ( SV2 - SV1 ) * ( SH2 - SHI ) ) 

32  CONTINUE 

WRITE (6,657) 

657  FORMAT ( / , 5X , ’VFBHF(I,J) , VFHFB , J=MJJP ,MJ , 1=1 , MI ) 1 ,/) 

WRITE (6,602)  ((  I,  J , VFBHF ( I , J) , VFHFB( I , J) , J=MJJQ ,MJ) , 1=1 ,MI ) 

*  5 .  T  TO  HF 

SH1=RZ (MKP ) -RZ(MKKP ) 

SH2 =RZ ( MKP ) - RZ ( MKK ) 

SV1=RX(MII) 

SV2=RX(MIIP) 

DO  33  J=MJ JO ,MJ 
GH1=RY( J) -RY (MJJQ) 

GH2=RY( J+l ) -RY(MJJQ) 

DO  33  1=1, MI 
GV1=RX ( I ) 

GV2=RX(I+1) 

DDD=PERPND (SHI ,SH2,SV1 , SV2 , GV1 , GV2 ,GH1 ,GH2 ) 

VFTHF ( I , J)=DDD/ ( (GV2-GV1 )*(GH2-GH1 ) ) 

VFHFT(l , j)=DDD/( (SV2-SVl)*(SH2-SHl) ) 

33  CONTINUE 

WRITE (6,659) 

659  FORMAT (/ , 5X, 1 VFTHF ( I , J) , VFHFT , J=MJJP , MJ , 1=1 ,  MI)',/) 

WRITE (6,602)  ((  I,  J, VFTHF (I , J) , VFHFT (I , J) , J=MJJQ,MJ) , 1=1 ,MI ) 

***  THE  5TH  TYPE  SURFACE 

104  CONTINUE 

I F ( NN ( 5 ) .EQ.O)  GO  TO  105 
MKKQ=MKKP 


*  (E)  BOTTOM  SIDE  OF  THE  HEAT  SOURCE  (HB)  VS  WALL  SURFACE 


1 . 

HB 

VS 

RE 

2. 

HB 

VS 

F 

3. 

HB 

VS 

R 

4. 

HB 

VS 

L 

5. 

HB 

VS 

B 

RE  TO 

HB 

SH1=RY (MJJ ) 
SH2=RY (MJJP) 
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SV1=RX(MII) 

SV2=RX(MIIP) 

DO  17  1=1, MI 
DO  17  K=1 ,MKKM 
GV1  =RX(I ) 

GV2  =RX( 1+1 ) 

GH1=RZ (MKK) -RZ (K+l ) 

GH2=RZ(MKK)-RZ(K) 

DDD=PERPND (SHI , SH2 , SV1 , SV2 .GV1 ,GV2 ,GH1 ,GH2 ) 

VFREHB(I ,K)=DDD/((GV2-GV1)*(GH2-GH1)) 

VFHBRE (I , K)=DDD/ ( (SV2-SV1 )*(SH2-SH1 ) ) 

17  CONTINUE 
C 

WRITE  (6,611) 

611  FORMAT (/,5X, 'VFREHB( I, K) , VFHBRE, K=l, MKKM. 1=  1,  MI)1,/) 

WRITE (6,602)  ((  I,  K,VFREHB(I ,K) , VFHBRE (I ,K) ,K=1 ,MKKM) , 1=1 , MI ) 

*  2.  F  TO  HB 

SH1=RY(MJP) -RY(MJJP) 

SH2=RY(MJP ) -RY(MJJ) 

SV1=RX(MII) 

SV2=RX(MIIP) 

DO  15  1=1, MI 
DO  15  K= 1 , MKKM 
GV1=RX(I ) 

GV2=RX( 1+1 ) 

GH1=RZ(MKK)-RZ(K+1) 

GH2=RZ (MKK) -RZ (K) 

DDD=PERPND ( SHI , SH2 , SV1 , SV2 , GV1 , GV2 . GH1 , GH2 ) 

VFFHB(I ,K)=DDD/( (GV2-GV1 ) * (GH2-GH1 ) ) 

VFHBF(I ,K)=DDD/( (SV2-SV1 ) * (SH2-SH1 ) ) 

15  CONTINUE 

WRITE(6 ,613) 

613  FORMAT (/, 5X, 'VFFHB  (  I,  K) ,VFHBF,  K=1 ,MKKM, 1=1 ,MI ) ' , / ) 

WRITE (6,602)  ((  I,  K, VFFHB (I ,K) ,VFHBF (I ,K) ,K=1 ,MKKM) , 1=1 ,MI) 

*  3.  R  TO  HB 

SH1=RX(MIP) -RX(MIIP) 

SH2=RX(MIP) -RX(MII ) 

SV1=RY(MJJ) 

SV2=RY (MJJP) 

DO  13  J=1 ,MJ 
DO  13  K=1 .MKKM 
GV1  =RY(J) 

GV2  =RY ( J+l ) 

GH1=RZ (MKK) -RZ (K+l ) 

GH2=RZ (MKK) -RZ (K) 

DDD=PERPND ( SHI , SH2 , SV1 , SV2 . GV1 , GV2 , GH1 , GH2 ) 

VFRHB( J,K)=DDD  / ( (GV2-GV1 ) * (GH2-GH1 ) ) 

VFHBR( J ,K)=DDD  / ( (SV2-SV1 ) * (SH2-SH1 ) ) 

13  CONTINUE 

WRITE (6, 61 5) 

615  FORMAT^/ , 5X, 1 VFRHB( J,K) ,VFHBR,K=1 ,MKKM. J=1 ,  MJ)',/) 

WRITE (6 , 602 )  ((  J,  K,VFRHB( J,K) ,VFHBR( J,K) ,K=1 ,MKKM) , J=1 ,MJ)  • 

*  4.  L  TO  HB 

SH1=RX(MI I ) 

SH2=RX(HI IP ) 

SV1=RY( MJJ) 

SV2=RY(MJJP) 

DO  11  J=1 , MJ 
DO  11  K= 1 , MKKM 
GV1=RY ( J ) 

GV2=RY ( J+l ) 
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GH1=RZ (MKK) -RZ (K+l ) 

GH2=RZ (MKK) -RZ (K) 

DDD=PERPND ( SHI , SH2 , SV1 , SV2 . GV1 , GV2 , GH1 , GH2 ) 

VFLHBf J,K)=DDD  / ( (GV2-GV1 ) * (GH2-GH1 ) ) 

VFHBL( J ,K)=DDD  / ( (SV2-SV1 )*(SH2-SH1 ) ) 

11  CONTINUE 

WRITE (6,617) 

617  FORMAT (/ , 5X, 1 VFLHB( J,K) ,VFHBL,K=1 ,MKKM.  J=  1,  MJ)',/) 

WRITE (6,602)  ((  J,  K, VFLHB ( J , K) , VFHBL( J , K) , K=1 , MKKM) , J=1 , MJ ) 

*  5 .  B  TO  HB 

GHZ=RZ(NKK) 

SH1=RX(MII) 

SH2=RX(MI IP) 

SV1=RY  MJJ) 

SV2=RY (MJJP) 

DO  9  1=1, MI 
DO  9  J=1 ,MJ 
GH1  =RX ( I ) 

GH2  =RX(I+1) 

GV1  =RY(J) 

GV2  =RY(J+1) 

DDD  =PARLEL ( SHI , SH2 , SV1 , SV2 , GV1 , GV2 , GH1 , 

&  GH2,GHZ)*GHZ*GHZ 
VFBHB ( I , J) =DDD/ ( (GV2-GV1 ) *(GH2-GH1 ) ) 

VFHBB(I , J)=DDD/ ( (SV2-SV1 ) * (SH2-SH1 ) ) 

9  CONTINUE 

WRITE (6,619) 

619  FORMAT (/ , 5X, 'VFBHB (I , J ) , VFHBB , J=1 ,MJ ,  1=  1,  MI)',/) 

WRITE(6, 602)  ((  I,  J , VFBHB ( I , J) , VFHBB ( I , J) , J=1 ,MJ) , 1=1 ,MI ) 

THE  6TH  TYPE  OF  SURFACE 

105  CONTINUE 

IF(NN(6).EQ.O)  GO  TO  106 
MKKQ=MKK+KP 


***  (F)  TOP  SIDE  OF  HEAT  SOURCE  (HT)  VS  WALL  SURFACE 


1 . 

HT 

VS 

L 

2. 

HT 

VS 

R 

3. 

HT 

VS 

F 

4. 

HT 

VS 

RE 

5. 

HT 

VS 

T 

L  TO  HT 


SH1=RX(MI I ) 

SH2=RX(MIIP) 

SV1=RY (MJJ ) 

SV2=RY (MJJP) 

DO  4  J=1 , MJ 
DO  4  K=MKKQ,MK 
GV1  =RY ( J) 

GV2  =RY  J+l) 

GH1  =RZ  K)-RZ(MKKQ) 

GH2  =RZ (K+l ) -RZ (MKKQ) 

DDD  =PERPND ( SHI , SH2 , SV1 , SV2 , GV1 , GV2 . GH1 , GH2 ) 

VFLHT ( J , K ) =DDD  / ( (GV2-GV1 ) * (GH2-GH1 ) ) 

VFHTL( J,K)=DDD  / ( (SV2-SV1)*(SH2-SH1) ) 

4  CONTINUE 
C 

WRITE(6 ,601) 

601  FORMAT (/,5X, 'VFLHT  (  J,  K) , VFHTL ,  K=MKKP ,  MK,  J=  1,  MJ)',/) 

WRITE(6 , 602)  ((  J,  K , VFLHT ( J , K ) , VFHTL ( J , K ) , K=MKKQ , MK ) ,  J=  1,MJ) 
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*2.  R  TO  HT 

SH1=RX(MIP) -RX(MIIP) 

SH2=RX(MIP  -RX(MII) 

SV1=RY (MJJ ) 

SV2=RY (MJJP) 

DO  12  J = 1 , M J 
DO  12  K=MKKQ,MK 
GV1  =RY ( J ) 

GV2  =RY ( J+l ) 

GH1  =RZ( K) -RZ(MKKQ) 

GH2  =RZ ( K+ 1 ) - RZ ( MKKQ ) 

DDD  =PERPND ( SHI , SH2 , SV1 , SV2 , GV1 , GV2 , GH1 , GH2 ) 

VFRHT(J,K)=DDD  / ( (GV2-GV1 ) * (GH2-GH1 ) ) 

VFHTR( J ,K)=DDD  / ( (SV2-SV1 ) * (SH2-SH1 ) ) 

12  CONTINUE 

write(6,603) 

603  FORMAT ( / , 5X , 1 VFRHT  (  J,  K) , VFHTR,  K=MKKP ,  MK,  J=  1,  MJ)',/) 

WRITE (6,602)  ((  J,  K, VFRHT (J,K) ,VFHTR( J,K) ,K=MKKQ,MK) ,  J=1,MJ) 

*  3 .  F  TO  HT 

SH1=RY (MJP ) -RY (MJJP ) 

SH2=RY (MJP) -RY(MJJ) 

SV1=RX(MII) 

SV2=RX(MIIP) 

DO  14  1=1, MI 
DO  14  K=MKKQ , MK 
GV1  =RX ( I ) 

. GV2  =RX( 1+1 ) 

GH1  =RZ (K) -RZ (MKKQ) 

GH2  =RZ(K+1)-RZ(MKKQ) 

DDD  =PERPND ( SHI , SH2 , SV1 , SV2 , GV1 , GV2 , GH1 , GH2 ) 

VFFHT ( I , K)=DDD  / ( (GV2-GV1 )*(GH2-GH1 } ) 

VFHTF ( I , K)=DDD  / ( (SV2-SV1 ) * (SH2-SH1 ) ) 

14  CONTINUE 

WRITE (6,605) 

605  FORMAT(/ , 5X, 1 VFFHT(I ,K) , VFHTF , K=MKKP , MK ,  1=  1,  .MI)',/) 

WRITE (6,602)  ((  I,  K , VFFHT ( I , K) , VFHTF ( I , K) , K=MKKQ , MK) ,  1=1, MI) 

*4.  RE  TO  HT 

SH1=RY(MJ J) 

SH2=RY (MJJP ) 

SV1=RX( Mil ) 

SV2=RX(MI IP) 

DO  16  1=1, MI 
DO  16  K=MKKQ , MK 
GV1  =RX ( I ) 

GV2  =RX( 1+1 ) 

GH1  =RZ( K) -RZ(MKKQ) 

GH2  =RZ(K+1)-RZ(MKKQ) 

DDD  =PERPMD( SHI , SH2 , SV1 , SV2 , GV1 , GV2, GH1 , GH2) 

VFREHT(I ,K)=DDD/ ( (GV2-GV1 ) * ( GH2-GH1 } ) 

VFHTRE (I ,K)=DDD/ ( (SV2-SV1 )*(SH2-SH1 ) ) 

16  CONTINUE 

WRITE (6, 607) 

607  FORMAT (/,5X, ' VFREHT ( I , K) , VFHTRE , K=MKKP , MK , 1=1 ,  Ml)' ,/) 

WRITE (6,602)  ((  I,  K , VFREHT ( I , K) , VFHTRE ( I , K) , K=MKKQ, MK) , 1=1 , MI ) 

*  5.  T  TO  HT 

GHZ=RZ(MKP) -RZ(MKKQ) 

SH1=RX(MI I ) 

SH2=RX(MIIP) 

SV1=RY (MJJ ) 
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SV2=RY(MJJP) 

DO  10  1=1, MI 
DO  10  J=1 ,HJ 
GH1  =RX( I ) 

GH2  =RX(I+1) 

GV1  =RY(j) 

GV2  =RY ( J+l ) 

DDD  =PARLEL ( SHI , SH2 , SV1 , SV2 , GV1 , GV2 , GH1 , GH2 , GHZ ) 

&  *GHZ*GHZ 

VFTHT ( I , J) =DDD/ ( (GV2-GV1 )*( GH2-GH1 ) ) 

VFHTT ( I  ,  J )=DDD/ ( (SV2-SV1 )* (SH2-SH1 ) ) 

10  CONTINUE 

C 

WRITE (6,609) 

609  FORMAT (/,5X, 'VFTHT (I, J) , VFHTT, J=1 ,  MJ.  I=.  1,  MI)1,/) 

WRITE (6,602)  ((  I,  J, VFTHT (I , J) , VFHTT (I , J) , J=1 ,MJ ) , 1=1 , MI ) 
106  CONTINUE 


^^^^^^^^^^^■k’k'k'k-k-k-k-k-k-k^-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k^-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k^-k-k 

***  THE  SECOND  STEP  IS  TO  TREAT  ALL  THE  HEAT  SOURCE  SURFACE  TO  BE 
.ONE .RADIATION. EXCHANGE  WALL  ZONE 

***  SUM  THEM  UP  TO  GET  THE  REAL  VIEW  FACTORS  BETWEEN  THE  HEAT  -  SOURCE 
AND  THE  WALL  ZONES 

**  SVFHSW:  SUMMATION  OF  VIEW  FACTOR  FROM  HEAT  SOURCE  TO  ALL  WALL  ZONES 
**  SVFWHS :  SUMMATION  OF  VIEW  FACTOR  FROM  ALL  WALL  ZONES  TO  HEAT  SOURCE 

SVFWHS=0 . 

SVFHSW=0 . 

C 

DO  201  J=1 ,MJ 
DO  201  K= 1 , MK 

C  **  2  VERTICAL  WALLS  TO  HEAT  SOURCE 

VFRHS ( J , K ) =VFRHF ( J , K ) +VFRHRE ( J , K ) +VFRHR ( J , K ) + VFRHT ( J , K ) +V  FRHB ( J , K ) 
VFLHS ( J , K ) =VFLHF ( J , K ) +VFLHRE ( J , K) +VFLHL ( J  ,  K ) +VFLHT ( J , K ) +VFLHB ( J , K) 
SVFWHS  =SVFWHS+VFRHS ( J , K) +VFLHS ( J , K) 

C  **  HEAT  SOURCE  TO  2  VERTICAL  TANK  WALLS 
VFHSR ( J , K)=VFHFR( J , K) +VFHRER( J , K) 

Sc  +VFHRR(J,K)+VFHTR  (J,K)+VFHBR(J,K) 

VFHSL ( J , K)=VFHFL( J , K)+VFHREL( J , K) 

&  + VFHLL ( J , K ) +VFHTL  ( J , K) +VFHBL ( J , K) 

SVFHSW  =SVFHSW+VFHSR ( J , K) +VFHSL ( J , K) 

201  CONTINUE 

DO  203  1=1, MI 
DO  203  K= 1 , MK 

C  **  2  VERTICAL  WALLS  TO  HEAT  SOURCE 

VFREHS (I , K) =VFREHL ( I , K ) +VREHRE ( I , K) +VFREHR (I ,K) +VFREHT ( I , K ) 

&  +VFREHB(I.K) 

VFFHS ( I , K)  =VFFHF ( I , K) +VFFHL ( I , K) +VFFHR ( I , K ) +VFFHT ( I , K ) +VFFHB ( I , K) 
SVFWHS  = SVFWHS +VFREHS ( I , K) +VFFHS ( I , K) 

C  **  HEAT  SOURCE  TO  2  VERTICAL  TANK  WALLS 
VFHSRE ( I , K)=VFHLRE ( I , K)+VHRERE ( I , K) 

&  +VFHRRE (I ,K) +VFHTRE (I ,K) +VFHBRE (I ,K) 

VFHSF ( I , K )  =VFHFF (I , K) +VFHLF (I ,K) 

Sc  +VFHRF  ( I , K)  +VFHTF ( I , K)  +VFHBF ( I ,  K) 

SVFHSW  =SVFHSW+ VFHSRE (I ,K) +VFHSF ( I , K ) 

203  CONTINUE 
C 

DO  202  1=1, MI 
DO  202  J=1 ,MJ 

C  **  2  HORIZONTAL  WALLS  TO  HEAT  SOURCE 

VFTHS ( I , J ) =VFTHF ( I , J ) +VFTHT ( I , J ) +VFTHL ( I , J ) +VFTHRE ( I , J ) +VFTHR ( I , J ) 
VFBHS ( I , J ) =VFBHB ( I , J ) +VFBHRE ( I , J) +VFBHF (I, J) +VFBHL (I, J) +VFBHR ( I , J ) 
SVFWHS  =S VFV/HS+VFTHS  (I ,  j)  +VFBHS  (  I ,  J ) 

C  **  HEAT  SOURCE  TO  2  HORIZONTAL  WALLS 
VFHST ( I , J ) =VFHFT ( I , J ) +VFHTT ( I , J ) 
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&  +VFHLT ( I , J ) +VFHRET ( I , J ) +VFHRT ( I , J ) 

VFHSB ( I , J) =VFHBB ( I , J )+VFHREB (I , J) 

Sc  +VFHFB ( I ,  J) +VFHLB (I , J ) +VFHRB (I , J) 

SVFHSW  =SVFHSW+VFHSB(I , J)+VFHST(I, J) 

202  CONTINUE 

***  PRINT  OUT  THE  VIEW  FACTORS 
WRITE (6, 554)  SVFHSW , SVFWHS 

554  FORMAT (/ , 1  SUMMATION  OF  VIEW  FACTORS  FROM  ALL  HEAT  SOURCE ' , 

Sc  1  SURFACES  TO  ALL  INTERIOR  WALLS,  SVFHSW  =',E11.4,/, 

Sc  1  SUMMATION  OF  VIEW  FACTORS  FROM  ALL  INTERIOR  WALLS 1 , 

Sc  1  TO  ALL  HEAT  SOURCE  SURFACES  ,  SVFWHS  =',E11.4,/) 

DO  34  J=1 , MJ 
WRITE (6, 35)  J 

35  FORMAT (/ ,2X, 1 J=l , I2,3X, 1 VFHSL  ',5X,'VFHSR  1  ,5X, 

Sc  '  VFLHS  1  ,  5X,  '  VFRHS  1  ,/) 

DO  34  K= 1 , MK 

WRITE ( 6 , 36 )K , VFHSL (J , K) ,VFHSR(J,K) ,VFLHS(J,K) ,VFRHS(J,K) 

36  FORMAT (2X, 1 K= 1 ,12,  4(1X,E10.4)) 

34  CONTINUE 

DO  37  1=1, MI 
WRITE(6 , 38)  I 

38  FORMAT (/ ,2X, 1 1=' ,I2,3X, 1 VFHSF  ',5X, 

Sc  1  VFHSRE  1  ,  5X ,  1 VFFHS  1  ,  5X,  1  VFREHS  '  ,  /  ) 

DO  37  K=1 , MK 

WRITE(6 , 39 )K, VFHSF (I ,K) , VFHSRE ( I, K) ,VFFHS(I,K) , VFREHS ( I, K) 

39  FORMAT ( 2X, 1 K= ' ,12,  4(1X,E10.4)) 

37  CONTINUE 

DO  40  1=1, MI 
WRITE (6,42)  I 

42  FORMAT (/ , 2X , ' 1= 1 , 12 , 3X, 1 VFHST  ',5X,'VFHSB  ',5X,'VFTHS  * , 5X , 

Sc  1  VFBHS  1  ,/) 

DO  40  J=1 , MJ 

WRITE (6, 41 )J, VFHST (I, J) ,VFHSB(I,J) ,VFTHS(I, J) , VFBHS ( I , J) 

41  FORMAT (2X, 1 J= 1 , 12 , 4 ( IX , E10 . 4) ) 

40  CONTINUE 

RETURN 
END 

FUNCTION  PERPND (GX1 , GX2 , GY1 ,GY2,GV1 ,GV2 ,GH1 ,GH2) 

IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  GX(2) ,GY(2) ,GV(2) ,GH(2) 

***  THIS  FUNCTION  IS  USED  TO  CALCULATE  THE  VIEW  FACTOR  BETWEEN 
TWO  PERPENDICULAR  RECTANGULAR  SURFACES 

PERPND  =0. 

IF(GX1.LT.1.E-10 .AND .  GH1 . LT . 1 . E- 10  .AND.  GY1.EQ.GV1)  GO  TO  11 
C 

GX( 1 )=GX1 
GX(2)=GX2 
GY ( 1 )=GY1 
GY ( 2 )=GY2 
GV( 1 )=GV1 
GV(2)=GV2 
GH( 1 )=GH1 
GH(2;.=GH2 
DO  4  L=1 , 2 
DO  4  1=1,2 
DO  4  J=1 ,2 
DO  4  K=1 . 2 
BJK=GY( J)-GV(K) 
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ALI=SQRT (GH(L) *GH (L)+GX ( I ) *GX(  I ) ) 

ALI2=ALI^ALI 

ABSQ=SQRT(ALI2+BJK2) 

IF(ABSQ.EQ.O. )G0  TO  10 
CCC=ALOG(ABSQ) 

GO  TO  18 

10  CCC=0. 

18  CONTINUE 

ICOEF=I+J+K+L 
IF (ALI . EQ • 0 . )G0  TO  7 
DDD=  ALI2*AL0G(ALI) 

BBB=ALI*ATAN(BJK/ALI) 

GO  TO  8 

7  DDD=0 . 

BBB=0 . 

8  CONTINUE 

PERFND  =PERPND  +( (-1 . )**ICOEF)*(BJK*BBB- . 5*(ALI2- 
&  BJK2)*CCC  +.5*  DDD; / 6 . 283 
4  CONTINUE 
GO  TO  12 

11  CONTINUE 
C 

W=GX2-GX1 

DL=GY2-GY1 

H=GH2-GH1 

W=W/DL 

H=H/DL 

W2=W*W 

H2=H*H 

W2P1=1 . +W2 

H2P1=1 . +H2 

W2H2=W2+H2 

W2H2P1=1 . +W2+H2 

XXX= ( W2*W2H2P1 / ( W2P1*W2H2 ) ) **W2 
YYY= (H2*W2H2P1 / (H2P1*W2H2 ) ) **H2 
PERPND=(W*ATAN{1 . /W)+H*ATAN(1 . /H) -SORT  (W2H2)* 

Sc  ATAN(  1 .  /SQRT  (W2H2 ) )  + .  25*AL0G(W2P1*H2P1/W2H2P1*XXX*YYY) ) 

&  *DL*DL/ 3 .14159 

12  CONTINUE 
C 

RETURN 
END 

FUNCTION  PARLEL(XH1 ,XH2 , YV1 ,YV2,GV1 ,GV2 ,GH1 ,GH2 ,GHZ) 

IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  GX(2) ,GY(2) ,GV(2) ,GH(2) 

***  THIS  FUNCTION  IS  USED  TO  CALCULATE  THE  VIEW  FACTOR  BETWEEN 
TWO  PARALLEL  RECTANGVE  SURFACES 

PARLEL=0 

IF(XH1 .EQ.GV1  .AND.  YV1.EQ.GH1)  GO  TO  11 

GX(1)=XH1/GHZ 
GX(2)=XH2/GHZ 
GY( 1 )=YV1/GHZ 
GY ( 2 )=YV2/ GHZ 
GV( 1 )=GV1/GHZ 
GV(2)=GV2/GHZ 
GHi 1 )=GH1/GHZ 
GH<  2  J=GH2/GHZ 
DO  1  L=1 ,2 
DO  1  K=l,2 
DO  1  J=1 , 2 
DO  1  1=1.2 
ALI=GH(L)-GX(I) 


\ 
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BKJ=GV(K)-GY(J) 

ALI2=ALI*ALI 
BKJ2=BKJ*BKJ 
SBKJ=SQRT( 1 . +BKJ2) 

SALI=SQRT { 1 . +ALI2) 

ALAB2=0 . 5*AL0G( 1 . +ALI2+BKJ2 ) 

AAA= ALOG ( S AL I ) 

ICOEF=I+ J+K+L 

PARLEL=PARLEL+ ( ( - 1 . ) **ICOEF ) * ( ALI*SBKJ*ATAN( ALI/SBKJ ) 

Sc  -BK J*ATAN ( BK J ) +SALI*BKJ*ATAN ( BK J/S ALI ) 

Sc  -ALI*ATAN (ALI ) +AAA+ALOG (SBKJ ) -ALAB2 ) /6 . 28 

1  CONTINUE 
GO  TO  12 
C 

11  CONTINUE 

X= (XH2-XH1 ) / GHZ 
Y=(YV2-YV1)/ GHZ 
X2=X*X 
Y2=Y*Y 
X2P1=1.+X2 
Y2P1=1 . +Y2 
X2Y2=X2+Y2 
X2Y2P1— 1  +X2Y2 

PARLEL= ( ALOG(SQRT (X2P1*Y2P1/X2Y2P1 ) ) +X*SORT (Y2P1 ) 

Sc  *ATAN(X/SQRT(Y2P1) )+Y*SQRT(X2Pl)*ATAN(Y/SQRT(X2Pl)) 

Sc  -X*ATAN(X)-Y*ATAN(Y) )*2./3. 14159 

12  CONTINUE 
C 

RETURN 

END 

BLOCK  DATA 

Q  ^•k-k'k-k-k-k-k-k^^-k-k'k'^-k'k-k^-k-k'kTr-k-k-k-k-k-k-k-k-k-k-k-k-k-k'k-k'k-k-k-k-k-k-k'k-k-k-k-k-k-k-k-k-k^'k'k^-k'k'k'k'k'k'k'k'k 

c 

COMMON/BL1 1/  MIIZ(9) ,MJJZ(9) , MKKZ (9) ,IS(6) , LTYPE (9,6) , 

Sc  LI (9) ,LJ(9) ,LK{9) ,AYZ(9) ,AXY<9) ,AZX(9) , 

Sc  NHSZ ,  ITHIN(9 )  ,  JTHIN(9  )  ,  KTHIN(9  )  , 

Sc  IHSB (9 )  ,NHSW(9)  , JHSB(9)  ,NHSD(9)  ,KHSB(9)  ,NHSH(9) 

C 

DATA  MIIZ/9*0/,  MJJZ/9*0/ ,  MKKZ/9*0/ ,  IS/6*0/,  LTYPE/54*0/ 

DATA  ITHIN/9*1/,  JTHIN/9*1/,  KTHIN/9*1/,  NHSZ/9/ 

C 

END 
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APPENDIX  C 


FORTRAN  LISTING  OF  THE  RECTANGULAR  NUMERICAL  MODEL 

OF  FIRE  I 
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THREE-DIMENSIONAL  NUMERICAL  SIMULATION 
OF  A  FIRE  SPREAD  INSIDE  A  NAVY  STORAGE  TANK 

DEVELOPED  BY  : 

K.V.  LIU ,  K.T.  YANG,  G.F.  NIES 

DEPARTMENT  OF  AEROSPACE  &  MECHANICAL  ENGINEERING 
UNIVERSITY  OF  NOTRE  DAME 
NOTRE  DAME,  INDIANA,  46556 

AND 


kk 

kk 

kk 

kk 

kk 

kk 

kk 

kk 

kk 

kk 

kk 

kk 

kk 


kk 

kk 

kk 

kk 

kk 

kk 

kk 


DEPARTMENT  OF  MECHANICAL  ENGINEERING 
U.S.  naval  postgraduate  school 
Monterey,  California  93940 


DEC.  1986 


** 
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COMMON  /BL1 /BUOY , VISL , VOL , VOLDT , KBOUND , DTIME , NTREAL , SORSUM , N WRITE 
COMMON  /BL2/  DX , DY , DZ , DXY , DYZ , DZX , XYOZ , YZOX , ZXOY , XYPZ , YZPX , ZXPY 
COMMON  /BL3/  NI ,NJ ,NK,NIM1 ,NJM1 ,NKM1 ,NIM2 ,NJM2 ,NKM2 
COMMON/CONS/XTIME , NT , U0 , PRT , TA , 

Sc  NTMAXO , RA , CPAIR , SIGMA 

COMMON/NE/  U( 22 ,18, 18) ,V(22, 18 ,18) .1(22,18,18) ,R(22, 18,18) , 

C  Sc  P( 22, 18, 18). W (22, 18, 18) . WOD(22 ,18,18) .NOD (22 ,18,18) 

Sc  P(22,18,18) ,W(22,18,18) ,WOD( 22 , 18 , 18) 

C0MM0N/0D/U0D( 22,18,18) ,VOD(22,18,18) ,TOD(22 , 18 , 18) , ROD (22 , 18 , 18 ) 
C0MM0N/BL31/TPD(22 ,18,18) , RPD ( 22 , 18 , 18) , UPD ( 22 , 18 , 18 ) , 

&  VPD (22,18,18). WPD (22,18,18), PPD (22,18,18), RESORM ( 20 ) . ITER 

COMMON/ CO/AP(22,18,18) , AE (22 , 18 , 18) , AW( 22 , 18 , 18) , AN (22 , 18 , 18 ) , 

Sc  AS (22, 18, 18) ,SU(22,18,18) , SP( 22 , 18 , 18) , AF( 22 , 18,18) , AB ( 22 , 18 , 18) 
C0MM0N/PP/DU(22,18,18) ,DV(22, 18, 18) ,DW( 22, 18,18) , PP( 22 , 18 , 18 ) 
COMMON/BLIO/  Z ( 30 ) , REQ( 30 ) , VIS ( 22 , 18 , 18) ,RRES(3) 

C0MM0N/BL12/  DYZ02 , DZX02 , DXY02 , XYPZ2 , YZPX2 , ZXPY2 , DX4 , DY4 , DZ4 
Sc  '  , XY0Z2 , YZOX2 , ZXOY2 , DYZ04 , DZX04 , DXY04 

COMMON  /BL4/  QCONW  , 

Sc  QRADF  ,  QRADW  ,  ARFP ,  ARFS  ,  ORADB ,  QCONB ,  QRADL ,  QCONL  ,  QRADR ,  QCONR  , 

Sc  QRADT , QCONT , QRADRE , QCONRE 
COMMON / WC AP /TWF  (21 , 2 , 17) ,TWRE (21 , 2 , 17 ) ,TWR  (2,17,17), 

Sc  TWL  (2,17,17) ,TWB  (21 ,17,2) ,TWT  (21,17,2), 

Sc  CPF  21,3,17) ,CPRE(21, 3,17) ,CPR  (3,17,17), 

Sc  CPL  (3,17,17) ,CPB  (21,17,3) ,CPT  (21,17,3) 

Sc  ,  DXW ,  DYW  ,  DZW ,  VOLW ,  ALFAW ,  BETAW ,  HCOEF ,  TINF , 

Sc  CCOWL ,  CCOWR ,  CCOWRE  ,  CCOWF ,  CCOWB  ,  CCOWT 

COMMON/RAD/RLW (17,17) , RRW( 17 , 17 ) , RREW ( 21 , 17 ) , RFW( 21 , 17 ) , RBW( 21 , 17 ) 
Sc  ,  RTW  (21,17),  RADHS 

C 

COMMON/VF/VFMXC (67 ,61), T4ZON(67 ) , TZON(67 ) , RZON(67 ) ,AR(67) 

Sc  ,  AREA  (67  ) ,  VIEW  (SI ,  SI) ,  CONSRA 

COMMON/BL80/BTURB , ABTURB , CNT , DX2 , DY2 , DZ2 , VISMAX 
Sc  .  , SMPP (22,18,18)  ,RI(22,18,18) 

C 

COMMON  /VIEW1 /  MI ,MJ ,MK,MII ,MJJ ,MKK ,MIM ,MIP ,MJM ,MJP ,MKM , MKP , 

Sc  MI  IM ,  MI  IP ,  MJ  JM ,  M  J  JP  ,  MKKM ,  MKKP  ,  NHSZ ,  LZ ,  NZ ,  MZ , 

Sc  IREGN1 ,  IREGN2  ,  IREGN3  ,  IREGN4 ,  IREGN5  ,  IREGN6  ,  IREGN7  , 
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&  MREGN1 , MREGN2 , MREGN3 , MREGN4 , MREGN5 , MREGN6 , MREGN7 

C 

COMMON  /VIEW2/  MIIZ (9 ) ,MJJZ ( 9 ) , MKKZ (9 ) , LI ( 9) , LJ ( 9) , LK( 9 ) , 

&  ITHIN(9)  ,  JTHIN (  9 )  ,  KTHIM ( 9 )  ,AXY(9)  ,AYZ(9)  ,AZX(9)  , 

&  IHSB( 9) , JHSB(9) ,KHSB(9) ,NHSW(9) ,NHSD(9) ,NHSH(9) , 

&  LTYPE(9 ,6) 

C 

DIMENSION  DUMMY (22,22) ,ODOT(9) ,QF1 (9) , SVIEW(67 ) 

DIMENSION  TCELSI(22, 18, 18) ,POD(22, 18, 18) 

C 

CHARACTER  STAR 

DATA  STAR/'* ITLEFT/ 10000/ 

DATA  SORMAX , ITMAX/O .10,10/ 

DATA  TIME , RHEAT , CPHEAT/O . ,82.3, .138/ 

DATA  RWALL/ 488 . 0/ 

DATA  QCORRT , PCURM1 , PM1 /l. 0,1. 0,1.0/ 

C 

Q  ^^^^^^^^^^^•k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k'k-k-k-k-k-k-k-k-k-k-k-k-k^-k-k-k-k'k-k-k-kir^-k-k-kir-k'kirir-k-kirir-k-k-k-k-k-k 

c 

c 

c 

C  ********  PAY  SPECIAL  ATTENTION  TO  LINES  COVERED  BY 
C  $$$$$$$$$$$$$$$$$$  LINES  $$$$$$$$$$$$$$$$$ 

C 
C 
C 

c  ***  UO  : 

C  ***  RA 
C  ***  H  : 

£  TZTZ'k  ; 

C  ***  TINIT  1 
C  ***  GC 
C  ***  RAITR  : 

C  ***  C0NST1  : 

C  ***  C0NST4  : 

C  ***  C0NST6  : 

C  ***  CONSRA  : 

C  ***  NPRNT  : 

C 

C  ***  NTRWR  : 

C  ***  NTRWA  : 

C  ***  QD  : 

C  ***  TIME1  : 

C 

C  ***  TIME 2  : 

C 

C  ***  W THICK  7 

C  TWF  ( ) ,  TWRE ( ) ,  TWL  ( ) ,  TWR  ( ) , ' TWB  ( ) ,  TWT  ( )  :  TEMPERATURE 

C  INSIDE  THE  TANK  WALL,  2  CELLS  DEEP. 

C  QCONF  (),  QC0NREO,  QCONR  (),  QCONL  (),  QCONB  (),  QCONT  ()  : 

C  THERMAL  CONDUCTION  ON  TANK  WALLS,  CALCULATED  IN  #CALT# 

C  ***  CPF  (),  CPRE(),  CPR  (),  CPL( ) ,  CPB  (),  CPT  ()  ;  THERMAL  WALL 
C  WALL  CAPACITANCES,  IT  IS  A  FUNCTION  OF  TEMPERATURE 

C  CP ( ) =ALFA_+BETA_*TEMPERATURE 

C  ***  RWALL,  CCOWL , CCOWR , CCOWRE , CCOWF , CCOWB , CCOWT ,  CELLL , CELLR , 

C  CELLRE , CELLF , CELLB , CELLT  ;  VARIABLES  USED  IN  #MAIN#  AND 
C  #CALT#  FOR  WALL  CAPACITY  CALCULATION 

C  ***  CPWALL , CONDET , CONDEB , CONDEW , CONDEF ,  ACOWW , BCOWW , ACOWT , BCOWT , 

C  ACOWB , BCOWB , ACOWF , BCOWF  ;  USED  TO  CALCULATE  WALL  THERMAL 

C  CAPACITY 

C  ***  AREA ( )  :  NUMBER  OF  CELLS  IN  A  SURFACE  ZONE 

C  AR( )  :  AREA  (FT**2)  OF  A  SURFACE  ZONE 

C  ***  RRW  () ,RLW() ,RREW() ,RFW() ,RBW() ,RTW() ;  SURFACE  RADIATIVE  HEAT 
C  FLUX  ON  EACH  CELL.  CALCULATED  IN  #SURRAD#  AND  USED  IN  #CALT# 

C  FOR  TANK  WALL  TEMPERATURE  CALCULATION 

C 


c 

***  wc 

:  WIDTH 

OF 

THE 

TANK,  IN 

X-DIRECTION 

c 

DC 

:  DEPTH 

OF 

THE 

TANK,  IN 

Y-DIRECTION 

c 

HC 

:  HEIGTH 

OF 

THE 

TANK,  IN 

Z-DIRECTION 

REFERENCE  VELOCITY  (FT/SEC) 

REFERENCE  AIR  DENSITY  (LBM/FT**3) 

REFERENCE  LENGTH  (FT) 

REFERENCE  TEMPERATURE  (R) 

INITIAL  TEMPERATURE  (0) 

GRAVITATIONAL  CONSTANT 
GAS  CONSTANT  ;;  53.34 
RA*U0**2/GC 
REFERENCE  LENGTH  (CM) 

REFERENCE  VELOCITY  (CM/S) 

TA**3/ (RA*CP*UO*H*H) 

USED  IN  T , R , U , V , P .  PRINTOUT  ROUTINE 

NO.  OF  GRIDS  BETWEEN  TWO  CONSECTIVE  PRINTOUTS 

NTREAL/NWRITE*NWRITE 

NTREAL/NWALT*NWALT 

MAXIMUM  HEAT  INPUT , (WATTS ) 

HEAT  FLUX  INCREASES  LINEARLY  TO  IT  FULL  STRENGTH,  QD , 
AT  TIME=TIME1 ,  (SEC.) 

THEN  THE  HEAT  INPUT  GRADUALLY  REDUCES  TO  ZERO,  (SEC.) 
INTERIOR  THICKNESS  (IN) 
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NI  : 
NJ  : 
NK  : 
LTYPE ( ) 


MI  : 
MJ  : 
MK 

NZ  : 
MZ  : 
MIIZ ( ) , 
MJJZ ( ) , 
MKKZ ( ) , 
LI  ( )  : 
LJ()  : 
LK()  : 
IHSB ( ) 
JHSB ( ) 
KHSB ( ) 
NHSW { ) 
NHSD ( ) 
NHSH ( ) 
ITHINQ 
JTHIN ( ) 
KTHIN ( ) 


TOTAL  NUMBER  CELLS  IN  X-DIRECTION 

Y-DIRECTION 

Z-DIRECTION 

:  TYPE  OF  HEAT  SOURCE  SURFACE; 

0;  NO  RADIATION  EXCHANGE  OCCURS 
1;  RADIATION  EXCHANGE  OCCURS 
IN  X-DIRECTION 
Y-DIRECTION 
Z-DIRECTION 

RADIATION  ZONES  IN  SYSTEM 
RADIATION  ZONES  ON  TANK  WALL 
OF  THE  HEAT  SOURCE,  ZONE  #  IN 


FOR  EACH  ZONE  IN  X-DIRECTION 

Y-DIRECTION 
Z-DIRECTION 

NUMBER  FOR  EACH  HEAT  SOURCE  IN  X-DIRECTION 

Y-DIRECTION 
Z-DIRECTION 

NUMBER  OF  CELLS  FOR  EACH  HEAT  SOURCE,  IN  X-DIRECTION 

Y-DIRECTION 

Z-DIRECTION 

0  OR  1;  ZERO  OR  ONE  ZONE  SPACE  BETWEEN  TWO  OPPOSITE 
SIDES  OF  A  HEAT  SOURCE  IN  X;(I),  Y;(J)  AND 
Z ; ( K )  DIRECTIONS 

IF  ITHIN= JTHIN=KTHIN=1  MEANS  A  RECTANGULAR  SHAPE  HEAT 
SOURCE  WITH  ONE  ZONE  SPACE  IN  EACH  DIRECTION 
IF  ITHIN=JTHIN=KTHIN=0  MEANS  AN  INFINITE  THIN  SHEET  OF 
HEAT  SOURCE  IN  ALL  3  DIMENSIONS 


X-DIRECTION 

Y-DIRECTION 

Z-DIRECTION 


NUMBER  OF  ZONES 


TOTAL  NUMBER  OF 
TOTAL  NUMBER  OF 
Mil  :  LOCATION 
MJJ  : 

MKK  : 

NUMBER  OF  CELLS 


STARTING  CELL 
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KCASE=1 
KRUM=0 
KBOUND=l 
DTIME= . 001 
TWRITE=1 . 
TWALT=1. 

TMAX=5 . 

NHSZ=1 
NPRNT=5 
NRAD=2 
QD=3 . 223E05 
TIME1=30 . 
TIME2=60 . 

NI=22 

NJ=18 

NK=18 

WC=40 .2 
DC=17  . 

HC=17  . 

***  READ  INPUT  DATA 
***  READ  #  1 


$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
READ ( 5 , * )  KRUN , KBOUND . DTI ME , TWRITE , TWALT , NRAD , TMAX 
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 


WRITE ( 6 , 802 )  KRUN , KBOUND , DTI ME , TWRITE , TWALT , NRAD , TMAX 
802  FORMAT (5X, 'KRUN  = 1 , 13 , 2X , 1 KBOUND  = 1 , 13 , 2X , 1 DTIME  =',E11.4, 
&  2X, 'TWRITE  =' ,E11.4,/,5X, 'TWALT  = ' , Ell . 4 , 2X , ' NRAD  =', 
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Sc  14, 2X,  '  TMAX  ='  , El  1.4,/) 

C 

C  ***  READ  #  2 
C  ============= 

c 

RE AD (5,*)  QD,TIME1,TIME2 
C 

CC  WRITE (6,801)  QD , TIME1 , TIME2 

CC801  FORMAT  (/  ,  5X,  1  QD  =  '  ,  El  1 . 4 ,  '  WATTS  ',  3X ,'  TIME1  =',EH.4; 

CC  Sc  1  SEC.  '  ,3X,  'TIME2  =  '  ,E11 .4,  1  SEC.1,//) 

C 

C  ***  WHEN  KBOUND  =  3  OR  4 
C 

C  MOST  OF  THE  INPUT  INFORMATION  CAN  BE  OBTAINED  FROM  VIEW  FACTOR 

C  PROGRAM  WHICH  IS  A  SEPARATED  FORTRAN  PROGRAM  CALCULATING 

C  VIEW  FACTOR-  BETWEEN  ANY  TWO  TANK  WALL  ZONES  AS  WELL  AS  BETWEEN 
C  HEAT  SOURCE  AND  TANK  WALL  ZONE. 

C  ONCE  THE  VIEW  FACTOR,  A  MAXTRIX  FORM,  IS  CALCULATED,  ALL  VARIABLES 

C  ARE  STORED  INTO  A  FILE,  SAY  VIEW. DATA,  EITHER  ON  DISK  OR  TAPE 

C  ***  IF  KBOUND  IS  NOT  3  OR  4,  THEN  ALL  INPUT  CARDS  WILL  BE  READ 
C 

Q  *x********7z**********£****7<**7t*'k'k'k7t7'*&7:7t7tjz'k'k'kjt'kj:'k'k7t**7''k7<:*:'x*'k'k'k**'k'k* 

IF ( KBOUND. EO. 4.  OR . KBOUND . EQ . 3 )  GO  TO  7234 
C 

C  ***  READ  #  3 

C  ============= 

c 

READ ( 5 , *)  WC , DC , HC , NI , NJ , NK 
C 

C  ***  READ  #  4 
C  ============= 

c 

READ ( 5 , *)  NHSZ 
C 

Q 

C  ******  IF  NHSZ  >  1,  THEN  READ  NHSZ  SET  OF  CARDS  FOR  READ  GROUP  2  TO  4 

Q 

DO  11  1=1, NHSZ 
C 

C  ***  READ  #  5 

C  ============= 

C 

READ ( 5 , * )  LTYPE (1,1), LTYPE (1,2), LTYPE (1,3), LTYPE (1,4), LTYPE (1,5), 
&  LTYPE (I , 6 ) 

C 

C  ***  READ  #  6 

C  ============= 

C 

C  ***  READ  POSITION  AND  SIZD  DATA  FOR  HEAT  SOURCE 
C 

READ ( 5 ,  *)  IHSB(I) ,NHSW(I) , JHSB(I) ,NHSD(l) ,KHSB(I) ,NHSH(I) 

C 

C  ***  READ  #  7 

C  ============= 

c 

READ (5,*)  MIIZ(I) ,MJJZ(I) ,MKKZ(I) 

C 

C  ***  READ  #  8 
C  ============= 

c 

READ ( 5 , *)  ITHIN ( I ) , JTHIN ( I ) , KTHIN ( I ) 

C 

11  CONTINUE 
C 

C  ***  READ  #  9 

C  ============= 

C 


READ ( 5 , *)  MI ,MJ ,MK 
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non  nnnnn 


READ  ( 

7,*) 

(LI  ( 

READ  ( 

5,*{ 

(LJ( 

READ! 

!5,*) 

(LK( 

c 

GO  TO  7235 
C 

7234  CONTINUE 


1=1, MI) 
1=1 ,MJ) 
1=1, MK) 


***  READ  VIEW  FACTORS  MATRIX  AND  ZONE  CELL  NUMBER 


$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

READ (15) 

&  IREGN1 , IREGN2 , IREGN3 , IREGN4 , IREGN5 , IREGN6 , IREGN7 , 

&  MREGN1 , MREGN2 , MREGN3 , MREGN4 , MREGN5 , MREGN6 , MREGN7 , 

&  WC , DC , HC , NI , M J , NK , AXY , AYZ , AZX , 

&  MI IZ , MJ JZ , MKKZ , MI , M J , MK , LTYPE , MZ , NHSZ , NZ , LI , L J , LK , 

&  ITHIN , JTHIN , KTHIN , IHSB , JHSB , KHSB , NHSW , NHSD , NHSH , VIEW , AREA 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 


WRITE ( 6 , 667 ) 

&  IREGM1 , IREGN2 , IREGN3 , IREGN4 , IREGN5 , IREGN6 , IREGN7 , 

&  MREGN1 ,  MREGN2  ,  MREGN3  ,  MREGN4  ,  MREGN5  ,  MREGM6  ,  MREC-N7  , 

&  WC , DC , HC , NI ,NJ , MK , 

&  MI , M J , MK , MZ , NZ , NHS  Z 

C 

667  FORMAT (  5X,1  READ  DATA  FROM  FILE  15,  CALCULATED  FROM  VIEW  ', 

&  'FACTOR  PROGRAM '/ /, 5X, ' IREGN1  = 1 , 13 , 2X, 1 IREGN2  =',I3,2X, 

&  1 IREGN3  = 1 , 13 , 2X, 1 IREGN4  = 1 , 13 , 2X, 1 IREGN5  = 1 , 13 , 2X, 1 IRENG6  =' 
&  13 , 2X, 1 IREGN7  = 1 , 13 , / , 5X, 1 MREGN1  = 1 , 13 , 2X , ' MREGN2  =',I3,2X, 

&  1  MREC-N3  =  1  , 13 , 2X,  '  MREGN4  =  1  , 13 , 2X,  1  MREGN5  =  1  , 13 , 2X,  1 MREGN6  =' 
&  13, 2X, 1 MREGN7  =' ,13,//, 

&  5X, 'WC  =' ,E11.4, '  FT' ,3X, 'DC  =' ,E11.4, 1  FT ' , 3X , ' HC  = ' , Ell . 4 , 
&  '  FT ' , / , 5X, 1 NI  = 1 , 13 , 3X , 1 NJ  =',I3,3X,'NK  = ' , 13 , // , 

&  5X,'MI  =  '  ,  13 , 3X ,  1  M  J  =  1  , 13 , 3X,  1  MK  =\I3,3X,'MZ  =',I3,3X, 

&  'NZ  =M3,//,5X, 'NO.  OF  HEAT  SOURCES  =',I3,//) 

C 

7235  CONTINUE 


C 


C 


c 


WRITE (6,21)  WC , DC , HC , NI , NJ , NK 
21  FORMAT ( 5X , 1 WC  =',E11.4,'  FT',3X,'DC  =',E11.4,'  FT',3X, 

&  • 'HC  =' , Ell . 4 , '  FT' ,/, 

&  5X , ' NI  = ' , 13 , 6X, ' NJ  = ' , 13 , 6X, ' NK  =',I3,//) 

WRITE (6, 31)  NHSZ 

31  FORMAT (5X, 'TOTAL  NUMBER  OF  HEAT  SOURCES,  NHSZ  :',I2,//) 


12 


DO  91 
WRITE 

& 

& 

& 

FORMAT 
&  10X, 
8X, 
10X, 
10X, 
10X, 
10X, 
10X, 
10X, 
10X, 
20X , 
20X , 
&  20X, 
&  10X, 
&  20X , 
&  20X, 


& 

& 

& 

& 

& 

& 

& 

& 

& 

& 


1=1 ,NHSZ 

(6,12)  I , LTYPE ( I , 1 ) , LTYPE (1,2), LTYPE (1,3), LTYPE (1,4), 
LTYPE (1,5), LTYPE (1,6), IHSB ( I ) , JHSB ( I ) ,KHSB(I) , 
NHSW ( I ) .NHSD ( I ) ,NHSH( I ) , MI IZ ( I ) , MJ JZ ( I ) , MKKZ ( I )  , 
ITHIN ( I ^ , JTHIN ( I ) , KTHIN ( I ) 

( 5X , ' HEAT  SOURCE  NUMBER  :',I2,//. 

ITS  6  SURFACE  TYPES  ARE  :  LTYPE (I )  =',612,//, 
LOCATION  OF  THIS  HEAT  SOURCE  . ',//, 


STARTING  CELL  NUMBER  IN  X-DIRECTION 

Y-DIRECTION 


AND  THE  CELLS 


IHSB 

JHSB 

KHSB 

NHSW 

NHSD 

NHSH 


1 ,12,/, 

1  72,/, 

1  ,12,//, 
1  ,12,//, 


' .12,//, 
1 ,12,//, 


Z-DIRECTION 
IN  X-DIRECTION 
Y-DIRECTION 
Z-DIRECTION 

LOCATION  OF  THIS  HEAT  SOURCE  RADIATION  EXCHANGE  ZONE',/, 

ZONE  NUMBER  IN  X-DIRECTION  :  MIIZ(I)  =  Mil  =  ',12,/, 

Y-DIRECTION  :  MJJZ(l)  =  MJJ  =  ',12,/, 

Z-DIRECTION  :  MKKZ(I)  =  MKK  =  ',12,//, 

THIS  HEAT  SOURCE  ZONE  HAS  ',//, 

ITHIN ( I )  = ' , 12 , '  ZONE  THICKNESS  IN  X-DIRECTION',/, 

JTHIN  ( I )  ='  ,: 


12,'  ZONE  THICKNESS  IN  Y-DIRECTION',/, 
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c 


c 

c 


c 


c 


c 

c 


c 


c 


&  20X, 'KTHIN(I)  =',12,'  ZONE  THICKNESS  IN  Z-DIRECTION ' , // ) 

91  CONTINUE 

WRITE (6,18)  MI , (LI (I) , 1=1 , MI ) 

18  FORMAT (1 OX, 'THERE  IS  ;  MI  =',12,'  ZONES  IN  X-DIRECTION ' , , 

&  20X ,  1  THE  NUMBER  OF  CELLS  IN  EACH  ZONE  IS  ;  LI(I)  =',1013,/) 

WRITE (6 ,19)  MJ, (LJ(J) ,J=1,MJ) 

19  FORMAT (1 OX, 'THERE  IS  ;  MJ  = '  , 12 ,  '  ZONES  IN  Y-DIRECTION'  ,//, 

Sc  20X , ' THE  NUMBER  OF  CELLS  IN  EACH  ZONE  IS  ;  LJ(I)  = ' , 1013 , / ) 
WRITE (6,20)  MK,(LK(K),K=1,MK) 

20  FORMAT (10X, 'THERE  IS  ;  MK  = ' , 12 , '  ZONES  IN  Z-DIRECTION',//, 

Sc  20X , ' THE  NUMBER  OF  CELLS  IN  EACH  ZONE  IS  ;  LK(I)  = ' , 1013 , / ) 

MZ=2*(MI*MJ+MJ*MK+MK*MI) 

WRITE (6 ,308)  MZ 

308  FORMAT (5X, 'TOTAL  NUMBER  OF  ZONES  ON  TANK  WALL  = ' , 13 , / ) 


669 


DO  668  L=1,NHSZ 

WRITE (6, 669)  L , LTYPE (L, 1) ,LTYPE(L,2) ,LTYPE(L,3) ,LTYPE(L,4) , 
&  LTYPE (L, 5) , LTYPE (L, 6) ,MIIZ(L) ,MJJZ(L) , MKKZ ( L ) , 

Sc  IHSB(L) , JHSB(L) ,KHSB(L) ,NHSW(L) ,MHSD(L) .NHSH(L) , 

&  ITHIN(L) , JTHIN(L) , KTHIN(L) ,AXY(L) , AYZ(L) , AZX(L) 

FORMAT ( 5X ,' HEAT  SOURCE  NUMBER  ',12,//, 

LTYPE  =' ,6I3,/,5X, 'Mil  = ' , 13 , 2X, ' MJJ 
MKK  = ' , 13 , // , 


Sc 

Sc 

Sc 

Sc 

Sc 

Sc 

Sc 


5X, 

2X, 

5X, 

5X, 

5X, 

5X, 

2X, 


=  '  ,13 


668  CONTINUE 


IHSB(L)  = 
NHSW(L)  = 
ITHIN (L)= 
AXY  ( L 
AZX( 


i]  : 


JHSB(L)  =' ,I2,2X, 'KHSB(L)  = ' , 12 , / , 
NHSD(L)  =' ,I2,2X, 'NHSH(L)  = ' , 12 , // , 
JTHIN(L)= ' ,I2,2X, ' KTHIN(L)= ' ,12,//, 
FT**2' ,2X, ' AYZ(L)  = ' , Ell . 4 , '  FT**2 ' 


, 12 , 2X , ' 

,12, 2X, ' 

, 12 , 2X, ' 

,  Ell .  4 ,  '  ,r.{ 

, Ell .4 , '  FTX*2 ' , // ) 


DO  766  L=1 , NHSZ 
MII=MIIZ(L) 

MJJ=MJJZ (l) 

MKK=MKKZ(L) 

WRITE (6,767)  L ,MII , MJJ , MKK 

767  FORMAT(/, 5X, 'HEAT  SOURCE  NO.  ',I2,2X,'MII  = ' , 13 ,2X, ' MJJ  =',I3, 
&  2X , 'MKK  =' ,13,/) 

766  CONTINUE 


WTHICK=2./12. 

NIM1=NI-1 
NJM1=NJ- 1 
NKM1=NK-1 
NIM2=NI-2 
NJM2=NJ-2 
NKM2=NK-2 


h=hc 

DZ=HC/(NKM2)/H 

DX=WC/(NIM2)/H 

DY=DC/(NJM2)/H 

XDX=WC/(NIM2) 

YDY=DC/(NJH2 

ZDZ=HC/(NKM2) 

DO  821  N=1 ,NHSZ 
XIHSB=IHSB(N)*DX*H 
Y JHSB= JHSB (N ) *DY*H 
ZKHSB=KHSB(N)*DZ^H 
XNHSW=NHSW ( M ) *DX*H 
YNHSD=NHSD(N ) *DY*H 
ZNHSH=NHSH(N)*DZ*H 

WRITE (6, 822)  N,  XIHSB , Y JHSB , ZKHSB , XNHSW , YNHSD , ZNHSH 
822  FORMAT (/,5X, 'HEAT  SOURCE  NO.  ',12,/, 

Sc  10X,  1  ITS  LOCATION  IS  ',E11.4,'  FT  FROM  X=0',/, 
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on  non  n  o  nnnnnnnn  non 


&  10X,' 

Sc  10X, 1 

Sc  10X , 1  ITS  THICKNESS  IS 
Sc  10X,' 

Sc  10X,' 

821  CONTINUE 


, Ell .4 , 1  FT  FROM  Y=0 ' ,/, 

,E11 .4, 1  FT  FROM  Z=0 1 ,//, 

1 ,£11.4,'  FT  IN  X-DIRECTION '  ,  /  , 
',E11.4,'  FT  IN  Y-DIRECTION '  ,  /  , 
',£11.4,'  FT  IN  Z-DIRECTION' ,//) 


C 

U0=1.0 

XTIMEI=0. 

C  NFIRE  IS  AN  UNNEEDED  VARIABLE  LEFT  OVER  FROM  ALTERATIONS. 

C  TO  GET  RID  OF  IT  SEVERAL  PRINT  STATEMENTS  MUST  BE  ALTERED. 
NFIRE=1 


$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

NWALT  =10 
NWRITE  =  10 

NWALT=TWALT  *U0/ (DTIME*H) 

NWRITE=TWRITE*UO/ (DTIME*H) 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

***  print  OUT  INPUT  INFORMATION 

WRITE ( 6 , 1 ) ( STAR ,1=1,100), KCASE , KRUN , TWRITE , TWALT , DTI ME 
Sc  , HC , WC , DC , XDX , YDY , ZDZ , 

Sc  OD, TOD, NWRITE, NFIRE, TMAX 

1  FORMAT (/// , 100A1 , /// , IX, ' ***  THREE-DIMENSIONAL  NUMERICAL  ', 

Sc  'SIMULATION  OF  THE  NAVY  STORAGE  TANK:',/,4X, 

Sc  '<  CASE  NO.  =  ',12,'  >',//, 4X,'#  KRUN  =',I2,/,4X, 

Sc  '#  TWRITE  =' ,F6.1,/,4X,  '#  TWALT  =',F6.1, 

&/ , 4X , ' #  DTIME  =' ,F6.3,//,4X, '#  THE  ENCLOSURE  :  HEIGHT  = 1 , F6 . 1 , 

&'  FEET1 ,2X, 'WIDTH  =' ,F6.1, 1  FEET 2X DEPTH  =', F6 . 1 , 1  FEET',//, 

Sc  '#  THE  GRID  CELL  SIZE  :  DX  = '  ,  F6 . 1 , 

&  '  FEET ' , 2X , '  DY  = ' , F6 . 1 , 1  FEET',2X,'  DZ  = 1 , F6 . 1 , '  FEET',//, 
&5X, 'TOTAL  HEAT  INPUT  ;  QD  =',  Ell. 4,'  WATTS  = ' , El 1 . 4 , '  BTU/HR ' , / , 
Sc  5X,  'NWRITE  ='  ,I4,5X,  'NFIRE  =',I4,/, 

Sc  5X ,  '  TMAX  =  '  ,  F8 . 2 ,  '  SEC.',//) 

GO  TO  (1132, 1133, 1134, 1135), KBOUND 

1132  WRITE (6 , 1136) KBOUND 

GO  TO  1141 

1133  WRITE (6, 1137 )KBOUND 

GO  TO  1141 

1134  WRITE (6, 1138) KBOUND, NRAD 

GO  TO  1141 

1135  WRITE (6, 11 39) KBOUND, NRAD 
1141  CONTINUE 

1136  FORMAT (4X , 1 <  KBOUND  =',13,'  > '  , / , 6X , 1  PURE  CONVECTION  WITH  ', 

Sc  'INSULATED  WALL  IS  CONSIDERED  IN  THIS  CASE.1,//) 

1137  FORMAT (4X , ' <  KBOUND  = ' , 13 , '  > 1 , / , 6X , ' PURE  CONVECTION  WITH  ', 

Sc  'WALL  CAPACITANCE  IS  CONSIDERED  IN  THIS  CASE.1,//) 

1138  FORMAT (4X , ' <  KBOUND  = ' , 13 , '  > ' , / , 6X, ' BOTH  CONVECTION  AND  ', 

Sc  'SURFACE  RADIATION  ARE  INCLUDED  IN  THIS  CASE  WITH  WALL  ', 

Sc  '  CAPACITANCE.  ',/  ,4X,  '#  NRAD  = '  ,  13 ,  '  TIME  STEPS  TO  UPDATE  THE  ', 

Sc  'RADIATIVE  HEAT  FLUX.',//) 

1139  FORMAT (4X , ' <  KBOUND  = ' , 13 , '  > 1 , / , 6X, ' BOTH  CONVECTION  AND  1 , 

Sc  'SURFACE  RADIATION  ARE  INCLUDED  IN  THIS  CASE  WITH  INSULATED', 

Sc  '  WALL.  '  ,/,4X, '#  NRAD  ='  13,'  TIME  STEPS  TO  UPDATE  THE', 

Sc  'RADIATIVE  HEAT  FLUX.  ***  NOT  AVAILABLE  RIGHT  NOW',//) 

*********  ********************************************************  ***** 


***  DEFINE  THE  CONSTANT  VARIABLES  IN  THE  CALCULATION  PROCESSES 
DXY=DX*DY 
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noon  non  non 


DYZ=DY*DZ 

DZX=DZ*DX 

DX4=DX*4. 

DY4=DY*4 . 

DZ4=DZ*4 . 

DX2=DX*2. 

DY2=DY*2. 

DZ2=DZ*2. 

C 

VOL=DX*DY*DZ 
UH=H/U0 
GC=32 . 17 
RAITR=53 . 34 
C 

VOLDT=VOL/DTIME 

3UOY=GC*H/(UO*UO) 

UGRT=U0*U0/ (GC*RAITR*TA) 

WRITE (6, 374)  BUOY,UGRT 

374  FORMAT;/, 5X, ' 1/F  =  BUOY  =  1 , Ell . 4 , 5X , 1 C  =  UGRT  =  ' , Ell . 4 , / ) 
C 

XYOZ=DXY/DZ 
YZOX=DYZ/DX 
ZXOY=DZX/DY 
PRT=1 . 

XYPZ=XYOZ/PRT 
YZPX=YZOX/PRT 
ZXPY=ZXOY/PRT 
VISL=(1 .56E-4)/ (H*U0 ) 

VISMAX=VISL*400. 

DZX02=DZX* . 5 
DYZ02=DYZ* . 5 
DXY02=DXY*.5 
DZX04=DZX* .  25 
DYZ04=DYZ* . 25 
DXY04=DXY* . 25 
XYPZ2=XYPZ*2. 

YZPX2=YZPX*2. 

ZXPY2=ZXPY*2 . 

XYOZ2=XYOZ*2 . 

YZOX2=YZOX*2.  - 
ZXOY2=ZXOY*2 . 

CONST4=H*30.48 
CONST6=U0*30.48 

CONST1=RA*UO*UO/ (GC*14. 696*144. ) 

TIMIT=1 . 

***  FOR  WALL  CAPACITY 

CELLB  =FLOAT(NIM2*NJM2) 

PUT  T  T1  =pT7T  T  R 

CELLRE=FLOAT (NIM2*NKM2 ) 

CELLF  =CELLRE 
CELLL  =FLOAT(NJM2*NKM2) 

CELLR  =CELLL 

***  CONSTANTS  FOR  RADIATION  CALCULATION 

CONSRA  =  TA*TA*TA/(RA*CPAIR*U0*3600.*H*H) 

***  CONSTANTS  FOR  WALL  CAPACITANCE 

***  WTHICK  IS  THE  TOTAL  WALL  THICKNESS,  NOT  THE  CELL  THICKNESS 
WTHI CK=3 . / 3 . / 1 2 . 

DXW=WTHICK/ 2 . 0/H 
DYW=DXW 
DZW=DXW 

VOLW=DXW*DX*DY 
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CPWALL=0 . 104 

CONSTA=CPAIR*60 . *RA*U0*H 
C 

C  ***  ALFAW  AND  BETAW  ARE  USED  FOR  WALL  THERMAL  CAPACITY  CALCULATION 
C 

CONDEW=35.0 

CC  ALFAW= . 000208/ CONSTA*CONDEW 

CC  BETAW=.000000731*TA*2./CONSTA  *CONDEW 

C  ***  THE  NEW  ALFAW  BELOW  IS  IN  UNITS  OF  BTU/SEC/FT/DEGREE  F 
ALFAW=35. 0/3600.0 
BETAW=0 .0 
C 

C  ***  HCOEF ,  CCOWL , CCOWR , CCOWRE , CCOWF ,  CCOWB ,  AND  CCOWT  ARE  USED 
C  IN  #CALT#  FOR  WALL  TEMPERATURE  CALCULATION 

C 

HCONV=7 . 5 

HC0EF=HC0NV*4 . / ( 3600 . *CPAIR*RA*UO ) 

CCOWL  =CELLL  *RWALL*VOLW  *CPWALL/(CPAIR*DTIME*RA)/2.0 
CCOWR  =CELLR  *RWALL*VOLW  *CPWALL/ (CPAIR*DTIME*RA)/2 .0 
CCOWRE=CELLRE*RWALL*VOLW  *CPWALL/ ( CPAIR*DTIME*RA ) / 2 . 0 
CCOWF  =CELLF  *RWALL*VOLW  *CPWALL/ (CPAIR*DTIME*RA)/2 .0 
CCOWB  =CELLB  *RWALL*VOLW  *CPWALL/  (CPAIR*DTIME*RA)/2 .0 
CCOWT  =CELLT  *RWALL*VOLW  *CPWALL/ (CPAIR*DTIME*RA)/2 .0 
TINF=1 . 

C 

WRITE (6,2334)  HCONV , CCOWL , CCOWR , CCOWRE , CCOWF , CCOWB , CCOWT , 

&  ALFAW, BETAW 

2334  FORMAT ( 2X, '  ***  THE  CONVECTION  COEFFICIENTS  ARE  • , 

&  'MULTIPLIED  BY  A  FACTOR  AT  THE  WALL  =  ',F10.4,//, 

&5K,' CCOWL  =' ,E11.4,2X, 'CCOWR  = ' , Ell . 4 , 2X , ' CCOWRE  = ' , Ell . 4 , 

&  2X, ' CCOWF  =' ,E11.4,2X, 'CCOWB  = ' , Ell . 4 , 2X, ' CCOWT  =',E11.4,/, 
&5X, 'ALFAW  =' ,E11.4,2X, 'BETAW  =',E11.4,/) 

C 

Q  **  x*  ***?;***  *7,7:**  ******  A?;**  ****x***t:*  *******  *******  ******************  A* 

C 

C  ***  INITIALIZE  THE  CONDUCTIVITY  FOR  THE  WALLS, 

C  ***  ONLY  IN  THE  CASE:  KBOUND  =  3  AND  THE  FIRST  RUN. 

C 

IF(KBOUND.NE. 3. AND. KBOUND. NE.2)GO  TO  726 
I F ( KRUN . EQ . 1 ) GO  TO  726 
C 

C  WRITE ( 10 , 1335 )KCASE 

C  WRITE ( 13 , 1335 )KCASE 

C  WRITE (14,1335 )KCASE 

C1335  FORMAT (2X, 1  THIS  IS  CASE  ',12,'  *** 1 ) 

DO  728  1=2 ,NIM1 
DO  728  K=2 , NKM1 
DO  728  J=1 . 2 
TWF  (I,J,K)=1. 

TWRE ( I , J , K)=l . 

728  CONTINUE 

DO  731  J=2 , NJM1 
DO  731  K=2 , NKM1 
DO  731  1=1,2 
TWR  (I,J,K  =1. 

TWL  ( I , J , K)=l . 

731  CONTINUE 

DO  729  1=2 , NIM1 
DO  729  J=2 , NJM1 
DO  729  K=1 , 2 
TWT  (I,J,K  =1. 

TWB  ( I , J , K)=l . 

729  CONTINUE 
726  CONTINUE 

C 

C  ***  DEFINE  VERTICAL  NODE  POINTS  AND  COMPUTE  HYDROSTATIC 
C  EQUILIBRIUM  DENSITY 
C 

Z(1)=-.5*DZ  . 


159 


non  no  o  non 


Z(2)=0.5*DZ 
DO  93  K=3,NK 
Z(K)=Z(K-1) +DZ 
93  CONTINUE 

AAAA=- 1 . *BUOY*UGRT*Z ( 1 ) 

REQ ( 1 ) =EXP ( AAAA ) 

DO  13  K=1.NK 
AAAA=Z ( K ) *EUO Y*UGRT 
REQ(K)=1 ./EXP (AAAA) 

13  CONTINUE 

***  DEFINE  THE  INITIAL  VALUES 

TOTMS=0 . 

DO  220  K=1 , NKM1 
DO  220  J=1 , NJM1 
DO  220  1=1 ,NIM1 
RI (I , J , K)=0  . 

AE ( I , J , K ) =0 . 

AW( I , J , K) =0 . 

AN ( I , J , K ) =0 . 

AS (I, J,K)=0. 

AF(I , J,K  =0. 

AB ( I , J , K ) =0 . 

AP ( I , J , K ) =0 . 

SP(I, J,K)=0. 

SU(I , J,K)=0. 

PP(I , J,K)=0. 

DU ( I , J , K) =0 . 

DV ( I , J , K)=0 . 

DW(I , J,K)=0. 

TOTMS=TOTMS+REQ(K) 

220  CONTINUE 

TOTMS=TOTMS*VOL*H*H*H’1'RA 
WRITE (6 ,376)  TOTMS 

376  FORMAT (5X, 'INITIAL  TOTAL  MASS  =  ',£11.4,'  LBM 1 , / ) 
IF(KRUN.EQ.l)GO  TO  2226 
DO  2222  K=1 ,NK 
DO  2222  J=1,NJ 
DO  2222  1=1 ,NI 
VIS(I ,  J,K)=VISL 
UOD ( I , J , K) =0 . 

VOD { I , J , K ) =0 . 

WOD ( I , J , K) =0 . 

TOD ( I , J ,K)=1 . 

ROD ( I , J . K)=REQ (K) 

P(I,J,K)=0. 

NOD ( I , J , K)=0 

2222  CONTINUE 

DO  2223  K=1 , NKM1 
DO  2223  J=1 , NJM1 
RLW ( J , K) =0 . 

RRW(J,K)=0. 

2223  CONTINUE 

DO  2225  1=1 ,NIM1 
DO  2225  J=1,NJM1 
RBW ( I , J ) =0 . 

RTW ( I , J)=0 . 

2225  CONTINUE 

DO  2227  1=1 ,NIM1 
DO  2227  K=1 ,NKM1 
RFW ( I , J) =0 . 

RREW ( I , J) =0 . 

2227  CONTINUE 

***  OSIN,  QSWAL  AND  QSAIR  FOR  HEAT  GENERATION  AND  LOSS  THROUGH 
AIR  AND  WALL. 
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***  RADHS  :  RADIATIVE  HEAT  FLUX  FROM  HEAT  SOURCE 

RADHS=0 . 

QSIN=0 . 

QSWAL=0 . 

2226  CONTINUE 


IF(KRUN.NE.l)  GO  TO  9999 

***  READ  THE  DATASET  OF  LAST  JOB  FROM  THE  TAPE  OR  THE  DISK 

********************************************************************** 

9997  READ ( 8 , END=151 ) 

&  TIME , NTMAXO , TOD , ROD , UOD , VOD , WOD , P , VIS , XTIMEI 
& ,  QS IN , QSWAL , QSAIR, PCURM1 ,  PM1 , QCORRT 

<5c,TWF  , TWRE , TWR  ,TWL  ,TWB  ,TWT  , RLW , RRW , RREW , RFW , RBW , RTW 
&  RADHS , QRADF , QRADW  . QRADB ( QRADL ( QRADR  QRADT , QRADRE 

****  *7\  *****  7K7S  **  **7K  7S*  **  **'ktt  ****  7*7**  ***7K7K**  ***7**  ***7*7*  *******  *********** 

GO  TO  9997 
151  BACKSPACE  8 
C  NTMAXO=TIME/DTIME 
9999  CONTINUE 

I F ( XT I HE . GT . TMAX ) GO  TO  9303 


DO  221  K=1 , NK 
DO  221  J=1 ,NJ 
DO  221  1=1, NI 


u  I,J,K 

>=UOD ( 

:i,j,k) 

V  I,  J,K 

)=VODl 

I,J,K 

W  I,J,K 

)=WODl 

I,J,K 

T(I,J,K 

>=TOD< 

I,J,K 

R  I, J,K 

)  =ROD l 

[i , J .K) 

P(I, J,K, 

>=P(I, 

r  J  ,  K) 

CONTINUE 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

***  THE  FOLLOWING  SECTION  CAN  BE  SKIPPED 
WHEN  RADIATION  IS  NOT  CONSIDERED. 

I F ( KBOUND . NE . 4 . AND . KBOUND . NE . 3 )  GO  TO  1234 

***  CALCULATE  THE  #  OF  CELLS  IN  EACH  WALL-ZONE 

DO  5  L=1 ,MREGN3 
AR(L)=AREA(L) 

AREA ( L ) =AREA ( L ) /DYZ/H/H 

5  CONTINUE 

DO  6  L=MREGN3+1 ,MREGN5 
AR(L)=AREA(L) 

AREA ( L ) =AREA ( L ) /DZX/H/H 

6  CONTINUE 

DO  7  L=HREGN5+1 ,MREGN7 
AR(L)=AREA(L) 

AREA ( L ) =AREA ( L ) /DXY/H/H 

7  CONTINUE 

DO  670  L=MREGN7+1  ,NZ 
AR(L)=AREA(L) 

AREA(L)=1 . 

670  CONTINUE 

***  ADJUST  THE  VIEW  FACTORS  FOR  ALL  ZONES  SUCH  THAT  THE  SUMMATION 
OF  ANY  ZONE  TO  ALL  OTHER  WALL  ZONES  TO  ONE 

763  CONTINUE 

DO  768  1=1, MZ 
SVIEW( I )=0 . 

DO  760  J=1 , MZ 
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SVIEW ( I  )  =  SVIEW(I )+VIEW(I , J ) 

760  CONTINUE 

C  WRITE (6,769)  I,SVIEW(I) 

C  769  FORMAT ( 5X , 1 1  ='  ,13,3k, 'S  VIEW  =',E11.4) 

763  CONTINUE 

SMX=  SVIEW(l) 

IMX=1 

DO  761  1=2 , NZ 

IF (SVIEW( I ) . LT . SMX)GO  TO  761 
SMX=SVIEW( I ) 

IMX=I 

761  CONTINUE 

CV  WRITE (6, 770)  IMX,SMX 

CV770  FORMAT ( 5X, 1 IMX  = 1 , 13 , 3X , ' SMX  =‘,E11.4) 

DO  762  1=1 .NZ 

VIEW (IMX, I )=VIEW(IMX, I) /SVIEW (IMX) 

VIEW ( I , IMX)=VIEW ( I . IMX) /SVIEW (IMX) 

C  WRITE (6,771)  I , VIEW (IMX, I) , VIEW(I . IMX) 

C  771  FORMAT ( 5X, 1 1  = ' , 13 , 2X , ' VIEW( IMX , I )  = ' ,E1 1 . 4 , 2X , 1  VIEW ( I , IMX)  =', 

C  &  Ell. 4) 

762  CONTINUE 
C 

IF (SMX . GT . 1 . )  GO  TO  763 

DO  765  1=1, NZ 

VIEW( I , I )=1 . -SVIEW (I ) 

765  CONTINUE 
C 

CV  WRITE (6, 161) 

CV161  FORMAT ( 5X , 1 ( (VIEW (I , J) , J=1 ,NZ) , 1=1 ,NZ) '  ,/) 

C 

CV  CALL  WRITE2 (VIEW,NZ , 1 ,NZ , 1 ,NZ) 

C 

C  ***  CALCULATE  RADIATIVE  COEFICIENT  MATRIX 
C 

Q  •k-k^-k-k-k-k-k-k-k-k-k'k-k-k-k-k-k-k-^-k-k-k-k-k-k-k 

CALL  VIEWMX 

£  •k-k-k'k-k-k-k-k-k'k-k-k'k^'k-k'k-k'k-k'k'k-k-^-k-k-k 

c 

WRITE (6 , 2331 )  AR(LZ) 

2331  FORMAT (/ ,4X, 1  THE  REAL  AREAS  USED  IN  RADIATION  CALCULATION  ARE', 

&  /,  4X ,  1  #  HEAT  SOURCE  =  \F10.4,'  FT**2 ' .// , 5X, ' AR()  FOR  ', 

&  'INTERIOR  WALL  IN  EACH  WALL  ZONE  (FT**2j ,  1=1, MZ',//) 

C  WRITE (6 , *) (AREA(I ) , 1=1 ,MZ) 

C 

CALL  WRITE1 (AR, 1 , NZ) 

WRITE (6, 101) 

101  FORMAT (5X, '  AREA ( ) ;  #  OF  CELLS  IN  THIS  ZONE',/) 

CALL  WRITE1 (AREA, 1 ,NZ) 

C 

1234  CONTINUE 
C 

WRITE (6,2333)  (STAR , 1=1 , 100 ) 

2333  FORMAT (100A1,//) 

C 

C 

Q  **********x*x****?:7:*******************x***ilt***x**A7;  •k-k'k-k-k-k'k-k'k-k-k-k-k-k-k-k-k'k 

C  >>>  RETURN  HERE  EVERY  TIME  «< 

c 

300  CONTINUE 

c 

WRITE (6, 3900) 

3900  FORMAT (6X, 1  NT REAL ' ,5X, 'TIME(SEC) ' ,9X, ' KTGP 1 ,5X, 'PCORR(TOT) ' , 

&  5X, 1 %PF/PI 1  ,7X, 1  ITER' ,9X, 1 RESORM= 1 ,8X, 'SORSUM=' ,//) 

C 

NT=NT+1 

ITER=0 

NTREAL=NT+NTMAXO 

TIME=TIME+DTIME 
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XTIME=TIME*H/UO 

C 

C  ***  THE  TRANSIENT  HEAT  INPUT 
C 

CC  TIME1=DTIME*10.0*H/U0 

TIME2=85.71 
TIME3=120 . 0 
TIME4=240.0 

CC  IF (XTIME . GT . TIMEX )  GO  TO  60 

CC  PCURVE=( .9l67491E-5*XTIME*XTIME)+( .3306313E-3*XTIME)+(1.0) 

CC  DPDT1= ( 1 . 8334982E- 5*XTIME )+ ( . 330631 3E -3) 

CC  OQ=8 . 316E7*DPDT1/TIME1*XTIME*2 . 0876 

CC  GO  TO  61 

60  IF (XTIME .GT.TIME2)  GO  TO  62 

PCURVE=( .9167491E-5*XTIME*XTIME)+( .3306313E-3*XTIME)+(1.0) 
DPDT1=(1 .8334982E-5*XTIME)+( .3306313E-3) 

QQ=8.316E7*DPDT1*2 .0876 
C 

C  ***  IN  MANY  OF  THE  FOLLOWING  LINES  A  TEMPORARY  CORRECTION  FOR 
C  *  ADJUSTING  QQ  TO  AGREE  WITH  THE  PRESSURE  HAS  BEEN  APPLIED. 

C  ***  OLDER  CODE  IS  IDENTIFIED  BY  CC. 

C 

GO  TO  61 

62  IF (XTIME. GT.TIME3)  GO  TO  63 

PCURVE=(- .2138189E-20*XTIME**6)-( .2435482E-12*XTIME**5)+ 

Sc  ( .3501095E-9*XTIHE**4)-( . 1782S47E-6*XTIKE**3 )t 
Sc  (  .3518094E-4*XTIME*XTIME)-(  .7541231E-3*XTIME)+1. 0031376 
DPDT2=(-1 .2829134E-20*XTIME*XTIME*XTIME*XTIME*XTIME)- 
&  (1 .217741E-12*XTIME*XTIME*XTIME*XTIME)+ 

Sc  ( 1 . 400438E-9*XTIME*XTIME*XTIME )  -  (  5 . 347941E-7*XTIME*XTIME )+ 

Sc  (7.036168E-5*XTIME)-(7 . 541231E-4) 

QQ=8 . 316E7*DPDT2*2 .0876 
GO  TO  61 

63  IF (XTIME .GT .TIME4)  GO  TO  64 

PCURVE=(- .2138189E-20*XTIME**6)-( .2435482E-12*XTIME**5)+ 

Sc  (  .3501095E-9*XTIME*’*:4)-( .  1782647E-6*XTIME**3)  + 

Sc  ( .35l8094E-4*XTIME*XTIME)-(  .7541231E-3*XTIME)  +  1. 0031876 
DPDT3= ( -239 . 0/3 . 0E7*XTIME )+(3.112E-3) 

QQ=8 . 316E7*DPDT3*2 . 0876 
GO  TO  61 

64  PCURVE=(-  .2138189E-20*XTIME**6)-(  .  2435482E- 12’<:XTIME’,:*5  )  + 

Sc  ( .3501095E-9*XTIME**4)-(  .  1782647E-6*XTIME**3)  + 

Sc  (.35l8094E-4*XTIME*XTIME)-(  .7541231E-3*XTIME)  +  1. 0031876 

DPDT4=(-1 .430E-10*(XTIME-420.0)*(XTIME-420.0)*(XTIME-420.0) )+ 
(-1.648E-8*(XTIME-420.0)*(XTIME-420.0) )+( .0009) 

QQ=8 . 316E7*DPDT4^2 .0876 

61  CONTINUE 

Q=QO*3 . 4134/60. /60. 

65  CONTINUE 
Q=Q*QCORRT 

•  WRITE (12)  XTIME, Q 
C 

C  ***  THIS  ENDS  THE  TEMPORARY  PRESSURE  CORRECTION  IN  THIS  PROGRAM  AREA 
C 

DO  824  N=1,NHSZ 

QDOT (N) =Q/H**3/NHSW(N) /NHSD (N) /NHSH (N) /DX/DY/DZ 
824  CONTINUE 
C 

C  ***  TIME  DURATION  BETWEEN  PRINTOUTS 
C 

NTRWR=NTRE AL / NWR I TE  *NWR I TE 
NTRWA=NTREAL/NWALT  *NWALT 
C 
C 

C  ***  WALL  CAPACITANCES  ARE  THE  FUNCTION  OF  TEMPERATURE. 

C 

I F ( KBOUND . NE . 2 . AND . KBOUND . NE . 3 ) GO  TO  722 
C 

DO  725  1=2 , NIM1 
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nnnnn  noon  nnn  nnnn  noon 


DO  725  K=2 . NKH1 

CPF  (I ,3,K) =ALFAW+BETAW*T ( I , N J , K ) 
CPRE ( 1 , 3  ,  K ) =ALFAW+BETAW*T (1,1  ,  K ) 

DO  725  J=1 , 2 

CPF  (I, J,K)=ALFAW+BETAW*TWF  (I,J,K) 
CPRE ( I , J , K ) =ALFAW+BETAW*TWRE ( I ,  J ,  K ) 
725  CONTINUE 

DO  724  J=2 , NJM1 
DO  724  K=2 . NKM1 

CPR  (3, J,K) =ALFAW+BETAW*T (NI , J , K) 
CPL  (3, J,K)=ALFAW+BETAW*T(1,  J,K) 

DO  724  1=1.2 

CPR  (I, J,K)=ALFAW+BETAW*TWR  (I,J,K) 
CPL  (I , J,K)=ALFAW+3ETAW*TWL  (I,J,K) 
724  CONTINUE 

DO  723  1=2 , NIM1 


DO 

723  J=2 , 

rNJNl 

CPT 

(I,J,3 

)=ALFAW+BETAW*T  < 

;i,j,nk) 

CPB 

(1/4,3, 

)  =ALFAW+BETAW*T ( 

CPT  (I, J,K)=ALFAW+BETAW*TWT  (I,J,K) 

CPB  (I , J,K)=ALFAW+BETAW*TW3  (I,J,K) 

723  CONTINUE 
722  CONTINUE 

***  CALL  CALVIS  TO  CALCULATE  TURBULENT  VISCOSITY 

$$$$$$$$$$$$$$ $$$$$$$$$S$$$$$$S$ 

IF (NTREAL . LE . 51 )G0  TO  4020 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

CALL  CALVIS 

******:*:******:**:*****£**:* 

4020  CONTINUE 

***  CALL  SURRAD  SUBROUNTINE  TO  CALCULATE  RADIATIVE  FLUX  EVERY 
"NRAD"  TIME  STEPS 

I F ( KBOUND . NE . 3 . AND . KBOUND . NE . 4 ) GO  TO  1237 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

IF(XTIME.LE.2. )GO  TO  1237 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

IF (NTREAL. NE .NTREAL/NRAD*NRAD)GO  TO  1237 
C 

DO  8  N=1 ,NHSZ 

LZ=MZ+N 

IB=IHSB(N) 

IE=IB+NHSW(N) -1 
JB=JHSB (N ) 

JE= JB+NHSD (N) -1 
KB=KHSB(N) 

KE=KB+NHSH (N ) - 1 
D=0 . 

SUM=0 . 

DO  680  I=IB , IE 
DO  680  J=JB , JE 
DO  680  K=KB ,KE 

SUM=SUM+T(I , J,K)*T(I, J,K)*T(I , J,K)*T(I, J,K) 

D=D+1  . 

680  CONTINUE 

T4Z0N (LZ )=SUN/D 
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nnnn  nn  on  o  o  non  nnnnnno  oonon  non  non 


WRITE (6, 9)  N , T4Z0N (LZ) 

9  FORMAT (/,5X, 'HEAT  SOURCE  NUMBER  :',I2, 

&  Ell .4, 3X, 'AVERAGE  TEMP.  **4  =',E11.4,/) 

8  CONTINUE 


CALL  SURRAD 

WRITE (6, 1238)  RADHS 

1238  FORMAT (7 OX, 1 ***  RADIOS ITY  FROM  ALL  HEAT  SOURCE;  RADHS= ' ,E10 . 4) 
1237  CONTINUE 

HEAT  INPUT  FOR  FIRE 
DEFINE  THE  HEAT  SOURCE 

DO  826  N=1 ,NHSZ 

QF1(N)=QDOT(N)*H/(RA*TA*UO*CPAIR) 

826  CONTINUE 
310  CONTINUE 


*  *  *  *  *  *  'k  *  x  x  *  x  x  *  *  x  x  x  -k  *  *  ^  tc  A  *  *  *  *  x  :*:  *  :*:  ^ 


***  CALCULATE  THE  WALTAGE  INPUTS  AND  THE  TEMPERATURES  OF  HEAT  ELEMENTS 
***  START  CALCULATION 


ITERT=1 

KTGP=1 

375  CONTINUE 
ITER=0 
JTERM=0 
JJTERM=0 

***  DEFINE  THE  UPDATED  TPD(I , J,K) ,R(I , J,K) ,U,V,W  AND  P 

DO  48  K=1 ,NK 
DO  48  J=1 ,NJ 


DO  43  1=1. 

,  NI 

TPD ( I , J ,K 

l=TI 

RPD ( I , J , K 

)=RI 

I,J,K 

UPD(I, J,K 

)=Ul 

I , J , K) 

VPD(I , J,K 

l=V  1 

I , J , K) 

WPD ( I , J , K ) 

>=w< 

I ,  J ,  K  ) 

PPD(I, J,K 

I=P( 

48  CONTINUE 
289  CONTINUE 
29  CONTINUE 

JTE  RM= JTE  RM+ 1 


CALL  CALT(QD0T,QF1) 

*xx  'k-k-k-k-k'k-k'k'k-k-k'r^'k-k-k-k-k'k-k-k-k-k'r-k'k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k^-k-k-k-k-k-k-k-k^-k-k-k-k-k-kir 

IF (NTREAL . GT . 100 )  GO  TO  372 
DO  373  1=1, NI 
DO  373  J=1 ,NJ 
DO  373  K=1 . NK 

IF(T(I,J,K) .LT.l.)  T(I , J,K)=1 . 

373  CONTINUE 
372  CONTINUE 


AAAA= - 1 . *BUOY*UGRT*Z ( 1 ) 
DO  2010  J=1 ,NJ 
DO  2010  1=1, NI 
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uuuuu  u  uuuuu  u  uu  u  uuuu  uuuuuuuuu 


C  R( I , J , 1 ) =EXP ( AAAA) /T( I , J , 1 ) 
C2010  CONTINUE 


***  GLOBLE  PRESSURE  CORRECTION  FOR  ENCLOSED  TANK  AIR 

SUHT=0 . 

SUMPT=0 . 

SUMPET=0  . 

DO  370  1=2 ,NIM1 
DO  370  J=2,NJM1 
DO  370  K=2 , NKM1 
SUMT=SUHT+1 . /T( I , J , K) 

SUMPT=SUMPT+P (I,J,K)/T(I,J,K) 

SUMPET=SUMPET+REQ( K) * ( 1 . /TINIT- 1 . /T ( I , J , K) ) 

370  CONTINUE 

SUMPET=SUMPET/UGRT 
PC0RR= ( SUMPET-SUMPT ) / SUMT 
PC0RRP=PC0RR 
PC0RRN=PC0RR 
WRITE (6,289)  PCORR 
289  FORMAT (5X, 'PCORR  =',1PE11.4/) 

DO  371  1=2, MINI 
DO  371  J=2 , NJM1 
DO  371  K=2 , NKM1 
P(I , J,K)=P(I ,J,K)+PC0RRN 

371  CONTINUE 

PCORRT=PCORRP+PCORR 

***  END  OF  GLOBLE  PRESSURE  CORRECTION 

TOTM=0 . 

DO  2000  K=2 , NKH1 
AAAA=BUOY*UGRT*Z ( K ) 

DO  2000  1=1 , NIM1 
DO  2000  J=1 , NJM1 
IF(T(I,J,K).LT.l.)  T ( I , J , K) =1 . 

R( I , J , K)= (UGRT*P ( I , J , K)+( 1 . /EXP (AAAA) ))/T(I,J,K) 

TOTM=TOTM+R( I , J , K)  ' 

2000  CONTINUE 

TOTM=TOTM*VOL*H*H*H*RA 
ERR1= (TOTHS -TOTH) /TOTHS*100 . 

***  ERROR  IN  TOTAL  MASS  DURING  THIS  TIME  STEP 

301  ITER=ITER+1 

kkk  kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

CALL  CALUV 
CALL  CALW 
CALL  CALP 

IF (RESORM . LE . 0 . 05 )  GO  TO  304 
WRITE (6 ,3)  ITER , RESORM , RSMP 
IF (RESORM . LE . 0 . 5 )  GO  TO  304 

3  FORMAT (50X, 1 ITER= 1 ,I2,2X, 1 RESORM= 1 ,F8.5,1X, 'SORSUM=' , F8 . 5 , 

&  2X , 1 ERRM  =' , Ell . 4 , '%' ) 

IF ( ITER . GT . 4 )GO  TO  304 
IF ( ITER . GE . 2 )GO  TO  306 
IF( ITER . EQ . 3)  GO  TO  307 
IF ( ITER . GE . 2 )  GO  TO  306 

RESl=RESORM 
GO  TO  301 

306  IF (RESORM . GT . RES1 )GO  TO  307 
GO  TO  301 
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C  304  CONTINUE 

IF (RESORM( ITER) .LE . SORMAX)  GO  TO  49 
IF(ITER.EQ.l)  GO  TO  302 
ITERM1=ITER-1 

IF (RESORM(ITER) .LE . RESORM( ITERM1 ) )  GO  TO  302 
GO  TO  304 

302  IF ( JTERM.GE . 2)  GO  TO  37 
SOURCE=RESORM( ITER) 

GO  TO  39 

37  IF (RESORH( ITER) .LE. SOURCE)  GO  TO  38 
GO  TO  304 

38  SOURCE=RESORM( ITER) 

39  CONTINUE 

DO  23  K=1 ,NK 
DO  23  J=1 , NJ 


DO  23  1=1, NI 

TPD ( I , J , K  =T ( 

:i,j,k 

RPD(l, J,K)=R< 

I,  J,K 

UPD( I, J,K)=U< 

I,  J,K 

VPD(I, J,K)=V< 

I,  J,K 

WPDCI , J,K)=W< 

I,J,K 

PPD ( I , J , K)=P  < 

[I, J,K 

23  CONTINUE 

JJTERM=0 

IF ( ITER. EO. ITMAX)  GO  TO  49 
IF ( JTERM . EQ . 2 )  GO  TO  35 
IF ( ITER . EQ . 4)  GO  TO  29 
35  CONTINUE 

IF (JTERM . EQ . 3 )  GO  TO  58 
IF ( ITER . EQ . 7 )  GO  TO  29 
58  CONTINUE 
JJTERM=0 

WRITE (6,3)  ITER, RESORM( ITER) ,S0RSUM,ERR1 
GO  TO  301 
304  CONTINUE 

JJTERM=JJTERM+1 

IF? JTERM . EQ . 1 )  GO  TO  41 

IF ( JTERM .EQ . 2 . AND .J JTERM . EQ. 1 .AND . ITER.NE . 5)  GO  TO  41 
GO  TO  82 
41  CONTINUE 

IF  ( ITER .  EQ  .  ITMAX)  GO  TO  '49 
GO  TO  49 
82  CONTINUE 

DO  43  K=1,NK 
DO  43  J=1 ,NJ 
DO  43  1=1, NI 


T(I,J,K 

)=TPD( 

;i,j,k) 

R(  I , J , K 

)=RPDl 

I ,  J ,  K ) 

U  I,J,K 

l=UPD( 

I,  J,K 

V(I, J,K 

)=VPD 1 

I,J,K 

P(I, J,K 

l=PPD 1 

I , J , K) 

w(i,j,k; 

>=WPDI 

I , J , K) 

CONTINUE 

IF ( ITER. EO. ITMAX)  GO  TO  49 

IF((JTERM7EQ.3.AND.ITER.NE.8)  .OR.  J JTERM. EQ . 2)  GO  TO  49 
GO  TO  301 
49  CONTINUE 
C 

IF (ITER.NE. ITMAX)  GO  TO  2435 
WRITE (6, 222) 

222  FORMAT (//, IX, 1 ITER=ITMAX 1 ,/) 

2435  CONTINUE 

cc 

CC  **  THE  FOLLOWING  PRESSURE  TEST  IS  A  TEMPORARY  MEASURE  TO  MODIFY  THE 
CC  HEAT  INPUT  TO  FORCE  THE  CALCULATED  PRESSURE  TO  AGREE  WITH  THE 
CC  EXPERIMENTAL  PRESSURE.  IT  WILL  BE  USED  UNTIL  ACCURATE  HEAT  INPUT 
CC  **  IS  RECEIVED. 

CC 

PSOUTH=P (20,9,16) *CONST1+REO (16) 
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PERROR= ( PCURVE - PSOUTH ) / PCURVE 
QC0RR=1 . O+PERROR- (PS0UTH-PM1 ) /PCURVE 

CC  QC0RR=1 . O+PERROR- (PS0UTH-PM1 ) /PCURVE+ (PS0UTH-PM1 ) / (PCURVE-PCURM1 ) * 
CC  &  (PCURVE -PHI) /PCURVE 

QCORRT=OCORRT*QCORR 
PCURM1=P CURVE 
PMl=PSOUTH 
PRINT  * 

PRINT  *,  1  PCURVE  PSOUTH  PERROR  QCOR 

&R  QCORRT  Q 1 

PRINT  *,  PCURVE, PSOUTH, PERROR ,QCORR, QCORRT ,Q 
PRINT  * 

***  SORSUM  IS  THE  SUM  OF  ERROR  SOURCE  FROM  ALL  OF  THE  CELLS 
IN  THE  ENCLOSURE. 

WRITE (6,45)  XT I ME , NTREAL , TIME , ITER ,RESORM( ITER) , SORSUM , QF1 ( 1 ) , 

&  ERR1 

WRITE (6.45) XTIME , NTREAL , TIME , ITER , RESORM , RSMP , QF1 , ERR1 
45  FORMAT (IX,  ' TIME= 1 , F9 . 3 , 1  SECS ' , IX, ' NTREAL= 1 , 15 , IX , ' TIME= 1 , 

&  F7.3,  IX, 1 ITER= 1 , 12 , IX , 1 RESORM= 1 , F8 . 5 , IX, 1 RSMP= 1 , F6 .4 , 2X, 

&  IX. 1 OFl  = 1 , F6 . 3 , IX , 1 ERRM= 1 .Ell. 4  '%' ,/) 


***  TO  PRINT  OUT  THE  FOLLOWING  INFORMATION  IS  OPTIONAL 

IF ( NTREAL. NE.NTRWR) GO  TO  661 

***  CALCULATE  THE  MAXIMUM  PECLET  NUMBER 
PEMAX=0 . 

DO  6625  1=2 ,NIM1 
DO  6625  J=2 , NJM1 
DO  6625  K=2 , NKM1 

PENU=SORT(U(I. J,K)*U(l, J,K)+V(I . J,K)*V(I . J,K)+ 

&  wfl,J,K)xW(I,J,K))  *U0*DX*H*R  ( I ,  J  ,  K) *RA*H*U0/  ( 30 . 43*VI  SL ) 

I F ( PENU . GE . PEMAX ) GO  TO  6623 
GO  TO  6625 

6623  PEMAX=PENU 

IPMAX=I 

JPMAX=J 

KPMAX=K 

6625  CONTINUE 

WRITE ( 6 , 6624 ) IPMAX , JPMAX , KPMAX , PEMAX 

6624  FORMAT (/,2X, 'AT  I  = 1 , 13 , 1  J  = 1 , 13 , 1  K  = 1 , 13 , 

&  1  MAXIMUM  PECLET  NUMBER  =',F10.3/) 

WRITE (6  ,*)  'THE  VELOCITIES  AT  THE  LOCATION  OF  THE  MAXIMUM  PECLET  N 
&UMBER  ARE : ' 

WRITE (6 , 6626 )  U( IPMAX , JPMAX , KPMAX) ,V( IPMAX, JPMAX, KPMAX) , 

&  W (IPMAX , JPMAX , KPMAX ) 

6626  FORMAT (5X, 1 U= ' , F8 . 4 , 5X, ' V= ' , F8 . 4 , 5X , ' W= ' , F8 . 4 , / ) 

6666  CONTINUE 


***  PRINT  OUT  THE  VELOCITY  AND  TEMPERATURE  FIELD  IN  THE  TANK 
IF (NTREAL  .NE.  NTREAL/NWRITE*NWRITE)  GO  TO  16 

WRITE (6, ' (//1X,A76) ' )  'TEMPERATURES  AT  THE  LEFT  TC  COLUMN,  THE  FIR 
&E  COLUMN,  AND  THE  RIGHT  TC  COLUMN' 

WRITE (6, ' (/9X,A10,8X,A10,8X,A10/) ' )  '1=  3,  J=  9', '1=11,  J=  9', 

&  1 1=20,  J=  9' 

DO  501  K=2 , NKM1 

TCELSI(3,9,K)=TA/1.8*T(3,9,K)-273.15 
TCELSI (11,9, K)=TA/ 1 . 8*T (11, 9, K)- 27 3. 15 
TCELSI(20,9,K)=TA/1 . 8*T( 20 , 9 , K) -273 . 1 5 

WRITE (6, ' (1X,A2,I2,F12.1,F18.1,F18.1) ' )  ' K= ' ,K, TCELSI (3 , 9 ,K) , 
&  TCELSI(11,9,K) ,TCELSI(20,9,K) 

501  CONTINUE 

XPN=P (3 , 9 , 16) *C0NST1+REQ ( 16 ) 

XPS=P (20,9,16) *C0NST1+REQ ( 16 ) 

WRITE  (6 , ' (// IX, A15 , F7 .4, 5X, A15 , F7 .4/ ) ' )  ' NORTH  PRESSURE= ', XPN , 
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&  1  SOUTH  PRESSURE*'  ,XPS 

16  CONTINUE 
661  CONTINUE 

***  CALCULATE  THE  ENERGY  LOST  THROUGH (OR  CONSUMED  BY) 

1.  THE  TANK  WALLS.  2.  TANK  AIR. 

I F ( KBOUND . NE . 2 . AND . KBOUND . NE . 3 ) GO  TO  22 
WWAL=QCONW  +QRADW 
22  CONTINUE 

***  TANK  AIR 

WAIR=0 . 

DO  25  1=2 ,NIM1 
DO  25  J=2 ,NJM1 
DO  25  K=2 ,NKM1 

IF (NOD ( I , J , K) .GE.11)G0  TO  25 
WAIR=WAIR+(T(I, J/K)-T0D(I, J,K))*R(I, J,K)*VOLDT 
25  CONTINUE 

***  SUM  UP  THE  TOTAL  WALT  AT  THAT  TIME  STEP 
WINS=0 . 

DO  827  N=1 , NHSZ 
WINS=WINS+QDOT(N) 

827  CONTINUE 

*7'***7'***7S******&*****'k***+:*****+:*:j<;***;**;******7' ************ 

***  THE  ENERGY  CALCULATION 

QSIN=QSIN+WINS*DTIME 

QSWAL=QSWAL-WWAL*DTIME 

QSAIR=QSAIR+WAIR*DTIME 

***  CALCULATE  THE  PERCENTAGE  AND  PRINT  OUT  THE  RESULTS 

IF ( (NTREAL .NE .NTRWA) .AND . (NTREAL. NE .NTRWR) )  GO  TO  1083 

***  WALT  PERCENTAGE 

PAIR=WAIR/WINS*100. 

PWALL=-WWAL/WINS*100 . 

***  ENERGY  PERCENTAGE 

PSAIR=QSAIR/ QSIN*100 . 

PSWAL=QSWAL/QSIN*100 . 

*** 

IF (NTREAL  .NE.  NWRITE)  GO  TO  17 
WRITE (6 , 1084)XTIME , WINS , WAIR 
&  ,WWAL,OCONW  , QRADW 

1084  FORMAT (6X, ' ***  AT  TIME  =  ',F9.4,'  ***',/, 

&  9X, 1  THE  WALTAGE  INPUT;  WINS  =  1 ,E10. 4,/, 

&  9X, 'WALTAGE  INTO  AIR;  WAIR  =',E10.4,/, 

&9X ,  1  INTO  THE  WALL;  WWAL  = 1  , E10 . 4 , 2X , ' BY  CONDUCTION;  QCONW= 1 , E10 . 4 , 
Sc  2X,  1  BY  RADIATION;  QRADW  =',E10.4,//) 

WRITE (6 ,2728)  QRADL  ,QCONL  , QRADR , QCONR , QRADRE , QCOMRE , 

Sc  QRADF  ,  QCONF  ,  QRADB  ,  QCONB ,  QRADT  ,OCONT 

2728  FORMAT ( 9 X, 'QRADL  :  INTO  LEFT  WALL  BY  RADIATION=  ^,£10. 4, 

Sc  9X ,  1 QCONL  :  BY  CONDUCTION  =',E10.4,/, 

Sc  9X,  'QRADR  :  INTO  RIGHT  WALL  BY  RADIATION=  ',£10.4,/, 
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&  9X ,  1 QCONR  :  BY  CONDUCTION  =  \E10.4,/, 

Sc  9X , 1 QREARE :  INTO  REAR  WALL  BY  RADIATION=  ',E10.4, 

Sc  9X, 1 QCONRE :  BY  CONDUCTION  =  ',£10.4,/, 

Sc  9X, 1 QRADF  :  INTO  FRONT  WALL  BY  RADIATION*  ',E10.4, 

Sc  9X , 1 OCONF  :  BY  CONDUCTION  =  ',E10.4,/, 

Sc  9X, 1 QRADB  :  INTO  FLOOR  BY  RADIATION*  ',E10.4, 

Sc  9X, 1 QCONB  :  BY  CONDUCTION  =  1 ,E10.4,/, 

Sc  9X,  1 QRADT  :  INTO  TOP  BY  RADIATION*  \E10.4, 

&  9X,'QCONT  :  BY  CONDUCTION  =  ',E10.4,//) 

C 

WRITE (6, 1091 )QSIN,QSAIR,QSWAL 
1091  FORMAT (9X, 'OSIN  :  TOTAL  ENERGY  INPUT* ' , E10 .4 , / , 

Sc  9X ,  1  OSAIR  :  TOTAL  ENERGY  INTO  CAVITY  AIR*  1  ,  E10 . 4 ,  /  , 

Sc  9X ,  1  QSWAL  :  TOTAL  ENERGY  INTO  WALLS* ' ,E10 .4, 2X, // ) 

C 

WRITE (6,1088)  PAIR , PWALL , PSAIR , PSWAL 
1088  FORMAT (9X, 'PAIR  :  LOSS  INTO  CAVITY  AIR=',F8.3,'  %',/, 

Sc  9X,  'PWALL:  LOSS  INTO  THE  WALLS  =  1  ,  F8 . 3  ,  '  %'/, 

Sc  9X,  'PSAIR:  TOTAL  INTO  CAVITY  AIR  =I,F8.3/I  %',/, 

Sc  9X,  'PSWAL:  TOTAL  INTO  THE  WALLS*  '  ,  F8 . 3  ,  '  %',//) 

C 

17  CONTINUE 

***  THE  TOTAL  ENERGY  DISTRIBUTION. 

QQ=WINS 

POAIR=QSAIR/QQ*100. 

PQWAL=QSWAL/QQ*100 . 

WRITE ( 6 , 1093  JXTIME , PQAIR , PQWAL , OQ 

1093  FORMAT (6X, 1 **  AT  TIME  =,,F9.3,1  PERCENTAGE  OF  TEST  ENERGY  INPUT 
Sc  /  ,  9X ,  1 PWAIR  :  INTO  CAVITY  AIR  =',F8.3,'  %',/, 

Sc  9X,  'PQWAL  :  INTO  THE  WALLS*  '  ,  F8 . 3  ,  '  %',/, 

Sc  9X,'QQ  :  TOTAL  ENERGY  INPUT  =  ',E10.4,//) 

1083  CONTINUE 

***  CALCULATE  THE  AVERAGE  TEMPERATURES  OF  THE  WALLS  AND  PRINT’ THEM  OUT 

IF( (NTREAL.NE.NTRWA) .AND. (NTREAL.NE.  NTRWR ) )  GO  TO  662 
STT  =0. 

STB  =0. 

STRE=0 . 

STF  =0. 

STR  =0. 

STL  =0 . 

DO  663  *  1=2 ,NIM1 
DO  663  J=2,NJM1 
STB  =STB  +T(I,J,1) 

C  IF (NOD ( I , J ,NKM1 ) . EQ . 2)GO  TO  663 

STT  =STT  +T(I,J,NK) 

663  CONTINUE 

DO  664  1=2 ,NIM1 
DO  664  K=2 ,NKM1 
STRE=STRE+T ( I , 1 ,K) 

C  IF (MOD ( I ,NJM1 ,K) . EQ . 2)GO  TO  664 

STF  =STF  +T(I,NJ,K) 

664  CONTINUE 

DO  665  J=2 , NJM1 
DO  665  K=2 ,NKM1 
STR  =STR  +T(NI,J,K) 

STL  =STL  +T(1,J,K) 

665  CONTINUE 

AVT  =STT  /CELLT  *TA-460 . 

AVB  =STB  / CELLB  *TA-460 . 

AVRE=STRE/CELLRE*TA-460 . 

AVF  =STF  /CELLF  *TA-460. 

AVR  =STR  /CELLR  *TA-460. 

AVL  =STL  /CELLL  *TA-460. 

C 
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WRITE (6,666) XTIME , AVT, AVB , AVRE , AVF , AVR , AVL 
666  FORMAT  (/ ,3X,  '  ***  AT  TIME  =  \F9.4,'  ***',/, 2X,'*  THE  AVERAGE  '  , 
Sc  'TEMPEATURE  OF  *',/,6X,'TOP  WALL  = 1 , F10 . 5 , 2X BOTTOM  WALL= 1 , 
Sc  F10.5,/,6X, 'REAR  WALL  = ' , F10 . 5 , 2X , ' FRONT  WALL  =',F10.5, 

Sc  / ,6X, 'RIGHT  WALL=' ,F10. 5, 2X, 'LEFT  WALL  = ' , F10 . 5 , // ) 

662,  CONTINUE,  , 

c 

C  ***  RESET  THE  OLD  VALUES 
C 

C  ****  ALSO  USED  IN  T4Z0N(LZ) 

C 

DO  305  K=1,NK 
DO  305  J=1 , NJ 
DO  305  1=1, NI 


UOD  ( 

-  /  — 
)=U  { 

;i,j,k) 

VOD  < 

I ,  J  ,  K 

)=V< 

I , J , K) 

WOD  ( 

I ,  J ,  K 

)  =w  < 

I ,  J  ,  K  ) 

TOD  ( 

I,J,  K 

l=T< 

I ,  J  ,  K  ) 

ROD  ( 

;i, j.kj 

>=R< 

|l, J.K) 

P(I,J,K)=P(I,J,K) 

305  CONTINUE 
C 

C  ***  SAVE  VALUES  FOR  PLOTTING 
C 

IF  (XT I ME I  .LT.  10.)  GO  TO  306 
XTIME 1=0. 

WRITE (10) 

Sc  XTIME , TOD , ROD , UOD , VOD , WOD , P , VIS 

306  CONTINUE 

XTIME If XTIME I+DTIME*H/UO 

£  it  kkk  **&***&&**&*  jt*K****  it  *************  *£  "kit  *** 

CC  CALL  TLEFT ( IT ) 

CC  IF( IT . LE . ITLEFT )  GO  TO  303 

IF (TIMREM(0 . )  .LE.  40.)  GO  TO  303 
I F ( XTIME . LT . TMAX ) GO  TO  300 
C 

303  CONTINUE 
C 

WRITE (9) 

&  TIME , NTREAL , TOD , ROD , UOD , VOD , WOD , P , VIS , XTIME I 
&, QSIN , QSWAL , QSAIR , PCURM1 , PM1 , QCORRT 

&,  TWF  , TWRE , TWR  ,TWL  ,TWB  ,TWT  , RLW , RRW , RREW , RFW , RBW , RTW 
&,RADHS,QRADF  , QRADW  , QRADB , QRADL , QRADR , QRADT , QRADRE 
WRITE (11) 

Sc  TIME , NTREAL , TOD , ROD , UOD , VOD , WOD , P , VIS , XTIMEI 
&, QSIN , QSWAL , QSAIR , PCURM1 , PM1 , QCORRT 

&,  TWF  , TWRE, TWR  ,TWL  ,TWB  ,TWT  , RLW , RRW , RREW , RFW , RBW , RTW 
&, RADHS , QRADF  , QRADW  , QRADB , QRADL , QRADR , QRADT , QRADRE 
9303  CONTINUE 
C 

STOP 

END 

SUBROUTINE  CALT(QDOT .QF1) 

c 

COMMON  /BL1  /  BUOY ,  VISL ,  VOL  ,  VOLDT ,  KBOUND  ,'DTIME  ,  NTREAL ,  SORSUM ,  NWRITE 
COMMON  /BL2/  DX , DY , DZ , DXY , DYZ , DZX , XYOZ , YZOX , ZXOY , XYPZ , YZPX , ZXPY  * 
COMMON  /BL3/  NI ,NJ ,NK ,NIM1 ,NJM1 ,NKM1 ,NIM2 ,NJM2 ,NKM2 
COMMON/ CONS/ XTIME , NT , UO , PRT ,TA, 

Sc  NTMAXO , RA , CP AIR , SIGMA 

COMMON/NE/  U(22,18,18) ,V(22,18,18) ,T(22,18,18) ,R(22, 18, 18) , 

Sc  P(22, 18, 18)  ,  w(  22 , 18 , 18)  ,  WOD  (  22 , 18 , 18) 

C  Sc  P(22,18,18)  ,W (22, 18, 18)  , WOD (22,18,18), NOD (22,18, 18) 

COMMON/ OD/UOD (22,18,18), VOD (22,18,18; , TOD (22, 18 , 18) , ROD ( 22 , 18 , 18 ) 
COMMON/BL31/TPD (22 ,18,18), RPD (22,18,18), UPD (22,18,18) , 

Sc  V  PD  (22, 18, 18)  ,  WPD(22 ,18,18),  PPD(22 ,18,18),  RESORM(  20)  ,  ITER 
COMMON/ CO/AP(22 , 18, 18) , AE ( 22 , 18 , 18) , AW( 22 , 18 , 18) , AN( 22 , 18 , 18) , 

Sc  AS(22,18,18)  ,SU(22,18,18)  ,  SP  ( 22 , 18 , 18)  ,AF(  22, 18,18)  ,  AB  ( 22 , 18 , 18) 


nnnnnn  o  o  non 


C 

C 


COMMON/ PP/ DU (22,18,18) , DV( 22 , 1 8 , 18 ) , DW( 22 , 18 , 18) , PP ( 22 , 18 , 13 ) 
COMMON/BLIO/  Z ( 30 ) , REQ ( 30 ) , VIS ( 22 , 18 , 18 ) , RRES (3 ) 

COMMON/ BL1 2/  DYZ02 , DZX02 , DXY02 , XYPZ2 , YZPX2 , ZXPY2 , DX4 , DY4 , DZ4 
&  , XYOZ2 , YZOX2 , ZXOY2 , DYZ04 , DZX04 , DXY04 

COMMON  /BL4/  QCONW  , 

&  QRADF  , QRADW  , ARFP , ARFS , QRADB , QCONB , QRADL , QCONL , QRADR , QCONR , 

&  QRADT , QCONT , QRADRE , QCONRE 
COMMON/WCAP/TWF  (21,2,17) ,TWRE (21 ,2,17) ,TWR  (2,17,17' 

&  TWL  (2,17,17), TWB  (21 , 17 , 2 ) ,TWT  (21,17,2 

&  CPF  (21,3,17) ,CPRE(21, 3,17) ,CPR  (3,17,17 

&  CPL  (3,17,17) ,CPB  (21,17,3) , CPT  (21,17,3] 

&  , DXW , DYW , DZW , VOLW , ALFAW , BETAW , HCOEF , TINF , 

&  CCOWL , CCOWR , CCOWRE , CCOWF , CCOWB , CCOWT 

COMMON/ RAD/ RLW(  17,17),  RRW(  17,17),  RREW  (21,17),  RFW (21,17)  ,  RBW  (21,17) 
&  , RTW (21,17), RADHS 


COMMON  /VI EW1 /  MI , M J , MK , MI I , M J J , MKK , MIH , MIP , MJM , M JP , MKM , MKP , 

&  MI IM , MI IP , MJ JM , MJ JP , MKKM , MKKP , NHSZ , LZ , NZ , MZ , 

&  IREGN1 , IREGN2 , IREGN3 , IREGN4 , IREGN5 , IREGN6 , IREGN7 , 

&  MREGN1 , MREGN2 , MREGN3 , MREGN4 , MREGN5 , MREGN6 . MREGN7 

COMMON  /VIEW2/  MIIZ ( 9 ) ,M JJZ (9 ) ,MKKZ (9 ) , LI (9 ) , LJ(9 ) , LK(9 ) , 

&  ITHIN (9 ) , JTHIN(9) , KTHIN(9 ) ,AXY(9) , AYZ ( 9 ) , AZX(9 ' 

&  IHSB ( 9 ) , JHSB(9) ,KHSB(9) ,MHSW(9) ,NHSD(9) ,MHSH(9 

&  LTYPE (9 , 6 ) 

DIMENSION  QDOT(l) ,QF1(1) 

DO  100  1=2 , NIM1 
IP1=I+1 
IM1=I - 1 

DO  100  J=2 , NJM1 
JP1=J+1 
JM1=J- 1 

DO  100  K=2 , NKM1 
KP1=K+1 
KM1=K-1 

IF (NOD ( I , J , K) .GE.ll)GO  TO  100 


CN= 

CS= 

CF= 


(R< 

1  +R< 

;ipi,j,k) 

!*U< 

'IP1, J,K) 

(R< 

I,  J,K 

)+R< 

IMl, J,K 

»*U< 

I 

/  J  /  K) 

R( 

I  ,  J  ,  K 

)  +R( 

I ,  JP1 , K 

l*V( 

I , JP1 , K) 

R( 

I ,  J  ,  K 

)+R( 

I , JM1 ,K 

l*V( 

I,J 

/  K) 

R( 

I ,  J  ,  K 

)+R< 

I , J , KP1 

l*W( 

I , J , KP1 ) 

(R< 

)+R< 

;i , j,kmi; 

>*w< 

;i,j,k  ) 

*DXY02 


VISCE=VIS 
VISCW=VISi 
VISCS=VIS 
VISCN=VIS 
VISCB=VIS i 
VISCF=VIS 
AE  ( I  ,  J ,  K ' 
AW ( I ,  J ,  K 
AN ( I , J , K 
AS ( I , J , K 
AF ( I , J , K 

ab(i , j,k; 


IP1 , J,K' 
IM1 , J , K 
I, JM1,K 
I , JP1 , K 
I , J , KM1 
I.JjY™ 
‘0.5*1 
‘0.5*1 
‘0.5*1 
‘0 . 5*1 
‘0.5*1 
‘0.5*1 


ABSI 

:ce; 

l-CE) 

ABSI 

icw; 

l+cw) 

ABSI 

CN 

l-CN) 

ABSI 

cs 

i+cs) 

ABSI 

CF 

l-CF 

ABSI 

[cb; 

>+cb) 

SP(I , J,Kj=-ROD(I , J,K)*VOLDT, 


SU(l 
100  CONTINUE 


ROD (I , J,K)*VOLDT*TOD(I , J,K) 


***  CONSIDER  THE  SOLID  BOUNDARIES  AND  FREE  BOUNDARIES, 
FOUR  DIFFERENT  CASES  ARE  AVAILABLE 

***  TOP  AND  BOTTOM 

DO  111  1=2 , NIM1 
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DO  111  J=2 ,NJM1 
AF ( I , J ,NKM1 )=0 . 

C  IF (NOD (I , J ,NKM1 )  .NE .  2)  GO  TO  116 

CF=(R(I , J , NKM1 )+R( I , J ,NK) ) *W (I , J , NK) *DXY02 

IF ( CF . GE . 0 . )  GO  TO  116 

VISF=VISL 

SU(I, J,NKM1)=SU(I, J,NKM1>+(0.5*(ABS(CF)-CF)+XYPZ*VISF)*TOD(I, J,NK) 
SP ( I , J , NKM1 )=SP ( I , J , NKH1 ) -  0 . 5* ( ABS ( CF ) -CF ) -XYPZ*VISF 

116  AB ( I , J , 2 )=0 . 

Ill  CONTINUE 

IF (KBOUND .NE . 2 . AND . KBOUND . NE .3)  GO  TO  301 
DO  304  1=2 ,NIM1 
DO  304  J=2,NJM1 

SU ( I , J , 2  )=SU( I , J , 2  )+XYPZ2*VIS ( I , J , 2  )*TOD(I,J,l  ) 

SP ( I , J , 2  )=SP ( I , J , 2  ) -XYPZ2*VIS ( I , J , 2  ) 

C  IF (NOD (I , J,NKM1) .EQ.  2)  GO  TO  304 

SU ( I , J , NKM1 ) =SU ( I , J , NKM1 ) +XYPZ2*VIS ( I , J , NKM1 ) *TOD ( I , J , NK  ) 

SP ( I , J , NKM1 )=SP ( I , J , NKM1 ) -XYPZ2*VIS ( I , J ,NKM1 ) 

304  CONTINUE 

301  CONTINUE 

***  RIGHT  WALL  AND  LEFT  WALL 

DO  212  J=2 ,NJM1 
DO  212  K=2 ,NKM1 
AE (NIM1 , J ,K)=0 . 

AW( 2 , J , K)=0 . 

212  CONTINUE 

IF(KBOUND.NE. 3. AND. KBOUND. NE.2)GO  TO  117 
DO  302  J=2 ,NJM1 
DO  302  K=2 , NKM1 

SU(NIM1,J/K)=SU(NIM1/J , K)+YZPX2*VIS (NIM1 , J , K)*TOD(NI , J , K  ) 

SP (NIM1 , J , K )=SP (NIM1 , J , K ) -YZPX2*VIS (NIM1 , J , K) 

SU(2, J,K  )=SU  2,J,K  ) +YZPX2*VIS ( 2 , J , K  )*TOD(l,J,K  ) 

SP ( 2 , J , K  )=SP(2,J,K  ) -YZPX2*VIS ( 2 , J , K  ) 

302  CONTINUE 

117  CONTINUE 

***  FRONT  DOOR  WALL  AND  REAR  WALL 

DO  103  K=2 ,NKM1 
DO  103  1=2 , NIM1 
AN( I , NJM1 , K)=0 . 

IF (NOD (I , NJM1 , K  ).NE.  2)  GO  TO  119 
CN=(R(I ,NJM1,K  )+R(I,NJ,K) )^V(I,NJ,K)*DXY02 
IF  (CN .  GE  .  0  .  )  C-0  TO  119 
VISN=VISL 

S  U ( I , N JN 1 , K ) =SU ( I , NJM1 , K )  +  ( 0 . 5  * ( ABS ( CN ) - CN ) +ZXPY^ VI SN ) *TOD ( I , N J , K ) 
SP  ( I  ,NJN1  ,K  )=SP ( I , NJM1 , K)  -  0 . 57C( ABS  (CN)  -  CN) -ZXPY*VISN 
119  AS ( I , 2 ,K)=0 . 

103  CONTINUE 

IF(KBOUND.NE. 3. AND. KBOUND. NE.2)GO  TO  118 
DO  305  K=2 ,NKM1 
DO  305  1=2 . NIM1 

SU ( I , 2 , K  ) =SU ( I , 2 ,K  ) +ZXPY2*VIS ( I , 2 , K  )*TOD(I,l,  K  ) 

SP ( I , 2 , K  )=SP ( I , 2 , K  ) -ZXPY2^VIS ( I , 2 , K  ) 

IF (NOD( I ,NJM1 ,K  ) . EQ .  2)  GO  TO  305 
SU ( I ,NJM1 , K)=SU ( I ,NJM1 , K)+ZXPY2*VIS ( I , NJM1 , K) *TOD( I ,NJ , K  ) 

SP ( I , NJM1 ,K)=SP(I , NJM1 , K ) -ZXPY2*VI S ( I , NJM1 , K ) 

305  CONTINUE 

118  CONTINUE 

***  VOLUMETRICAL  HEAT  SOURCE  INPUT 

DO  102  N=1,MHSZ 
IB=IHSB(N) 

IE=IB+NHSW(N)-1 
JB=JHSB (N) 

JE= JB+NHSD (N) - 1 
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KB=KHSB (N) 

KE=KB+NHSH (N) - 1 
DO  101  I=IB , IE 
DO  101  J=JB , JE 
DO  101  K=KB , KE 

SU(I , J,K)=SU(I , J,K)+QF1(N)*V0L 

101  CONTINUE 

102  CONTINUE 

***  THE  TEST  BLOCK 


***  THE  CELLS  INSIDE  THE  TEST  BLOCK  AND  HEAT  ELEMENTS  WILL  NOT 

BE  CALCULATED.  THE  VALUES  OF  AP  AND  SU  ARE  GIVEN  IN  MAIN  PROGRAM. 

***  ASSEMBLE  THE  COEFICIENTS  AND  SOLVE  THE  EQUATIONS 

DO  300  1=2 ,NIM1 
DO  300  J=2 , MJM1 
DO  300  K=2 , NKM1 
IF (NOD( I , J , K) .GE . 11 )GO  TO  300 

AP(I, J,K)=AE(I ,J,K)+AW(I,J,K)+AN(I,J,K)+AS(I, J,K)+AF(I, J,K)  + 

&  AB(I,J,K)-SP(I,J,K) 

300  CONTINUE 

IF (NTREAL .NE .0 . AND .NTREAL .ME . 0  )GO  TO  3321 
DO  3322  1=2 ,NIM1 
WRITE (6 , 3323 ) I 

3323  FORMAT (/, 2X, 1  I  = 1  , 12 , 2X, ' TEMP ' ) 

DO  3322  J=2,NJM1 
WRITE (6 , 3324) J 

3324  FORMAT (/ , 2X , 1 J  = 1 , 12 , 5X, 1 AE 1 , 9X, ' AS ' , 9X, ' AW ' , 9X, ' AN ' , 

&  9X, 1 AF1 ,9X, 1 AB ’ ,9X, ' AP ' ,9X, 1 SU ' ) 

DO  3322  K=2 , NK 

WRI TE ( 6 , 3  3  2  5 ) K , AE ( I , J , K ) , AS ( I , J , K) , AW ( I , J , K) , AN ( I , J , K ) , 

&  AF(I,J,K),AB(I,J.K),AP(I,J,K),SU(I,J,K) 

3325  FORMAT (2X, 1 K= ' ,12,  IX,  8  (Ell  .5,  IX)  )' 

3322  CONTINUE 

3321  CONTINUE 

CALL  TRID( 2 , 2 , 2 ,NIM1 ,NJM1 ,NKM1 ,T) 

********************************************************************** 

*  CALCULATE  THE  TEMPERATURES  AT  SOLID  BOUNDARIES.  ,* 

********************************************************************** 


GO  TO  (70,71,71,72) , KBOUND 

***  FOR  THE  CASE  OF  WALL  CAPACITANCE  CONSIDERED  WITH  RADIATION 


71 


C 


CONTINUE 
QCONF  =0. 
QCOMRE=0 . 
QCONL  =0. 
QCONR  =0. 
QCOMT  =0. 
QCONB  =0. 
QCONW  =0. 


DO  271  1=2 ,NIM1 
DO  271  K=2,NKM1 

WWF  =VIS (I , MJM1 , K) * (TOD ( I , NJ , K) -T ( I , NJM1 , K) ) *ZXPY2 
T  ( I ,  N J  ,  K )  =TOD  ( I , N J  ,  K )  -  (WWF  +RFV1(  I ,  K) )  / CCOWF 
TWF  (1,2, K)=TWF  ( I , 2 , K)+ (DZX02* (CPF  (I,2,K)+CPF  (I , 1 ,K) )/DYW* 


(TWF  ( I , 1 , K) -TWF 
(TOD ( I , NJ , K) -TWF 


I,2,K))+DZX02*(CPF  (I,2,K)+CPF  (I , 3 ,K) )/DYW* 
....  ,I,2,K)))/CCOWF 
TWF  (1,1 ,K)=TWF  (I,1,K)+2.*(DZX02*(CPF  (I,2,K)+CPF  (I , 1 ,K) )/DYW* 
&  (TWF  (I, 2, K) -TWF  (I,1,K))-DZX*(TWF  (I,l,K)-TINF)*HCOEF)/CCOWF 
QCONF  =QCONF  +WWF 
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c 

WWRE=VIS(I,2,K)*(T0D(I ,  1  , K) -T ( I , 2 , K) ) *ZXPY2 
T ( I , 1  , K)=TOD( I , 1  , K )+( DZX02* (TWRE (1,2 , K) -TOD( I ,  1,K)) 

&  * ( CPRE (1.2 , K)+CPRE( I . 3 , K) ) / DXW- WWRE - RRE W ( I , K) ) /CCOWRE 

TWRE  ( 1 , 2  ,  K)  =TWRE  (1,2,  K.)  +  (DZX02*  (CPRE  (1,2,  K;+CPRE  ( 1 , 1 ,  K) ) /DXW* 

&  (TWRE (1,1 ,K) -TWRE( I ,  2 , K) )+DZX02* (CPRE (1,2 , K) +CPRE ( I , 3 , K) )  /  DXW* 
&  (TOD(I,l  , K ) -TWRE (I,2,K)))/ CCOWRE 
TWRE (I , 1 , K) =TWRE (I,l,K)+2.*( DZX02* ( CPRE ( I , 2 , K ) +CPRE ( I , 1 , K) ) /DXW* 
&  ( TWRE (1,2 , K) -TWRE ( I , 1 , K) ) -DZX* (TWRE ( I , 1 , K) -TINF) *HCOEF) /CCOWRE 

QCONRE=QCONRE+WWRE 

271  CONTINUE 

DO  273  J=2,NJN1 
DO  273  K=2  ,NKM1 

WWL  =VIS ( 2 , J , K) * (TOD( 1 , J  , K) -T ( 2 , J , K) ) *YZPX2 
T ( 1 , J  . K)=TOD( 1 , J  ,K)+(DYZ02*(CPL  (3,J,K)+CPL  (2,J,K)) 

&  /DXW*(TWL  ( 2 , J , K) -TOD ( 1 , J , K) ) -WWL  - RLW ( J . K ) ) / CCOWL 
TWL  ( 2  ,  J  ,  K )  =TWL  ( 2  ,  J  ,  K)  +  (DYZ02*  (CPL  (2  ,  J  ,  K)+CPL  •  ( 1 ,  J  ,  K) ) /DXW* 

&  (TWL  ( 1 , J , K) -TWL  ( 2 , J , K) ) +DYZ02* (CPL  (2,J,K)+CPL  (3 , J , K) ) /DXW* 
&  (TOD ( 1 , J  , K) -TWL  (2 , J,K) ) ) /CCOWL 
TWL  ( 1 , J , K)=TWL  (1, J,K)+2.*(DYZ02*(CPL  (2,J,K)+CPL  ( 1 , J , K) ) /DXW* 
&  (TWL  ( 2 , J , K) -TWL  (1, J,K) )-DYZ*(TWL  ( 1 , J , K) -TINF) *HCOEF) /CCOWL 
C 

WWR  =VIS(NIM1 , J,K)*(TOD(NI, J  , K) -T (MINI , J, K) ) *YZPX2 
T (MI , J . K) =TOD(NI , J , K)+ (DYZ02* ( CPR  (3,J,K)+CPR  (2,J,K)) 

&  / DXW* ( TWR  (2 , J , K) -TOD (NI , J ,K) ) -WWR  -RRW ( J , K ) ) / CCOWR 

TWR  ( 2 , J , K)=TWR  ( 2 , J , K)+ (DYZ02* (CPR  (2,J,K)+CPR  ( 1 , J , K) ) /DXW* 

&  (TWR  ( 1 , J , K) -TWR  (2, J,K) )+DYZ02*(CPR  (2,J,K)+CPR  (3 , J , K) ) /DXW* 
&  (TOD(NI , J , K) -TWR  (2 , J , K) ) ) /CCOWR 
TWR  ( 1 , J , K)=TWR  (1, J,K)+2.*(DYZ02*(CPR  (2,J,K)+CPR  ( 1 , J , K) ) /DXW* 
&  (TWR  ( 2 , J , K) -TWR  ( 1 , J , K) ) -DYZ* (TWR  ( 1 , J , K) -TINF) *HCOEF) /CCOWR 
QCONR  =QCONR  +WWR 
OCONL  =QCONL  +WWL 

273  CONTINUE 

DO  274  J=2 ,NJM1 
DO  274  1=2  , NIM1 

WWT  =VI S ( I , J , NKM1 ) * ( TOD ( I , J , NK ) -T ( I , J , NKM1 ) ) *XYPZ2 
T ( I , J ,NK)=TOD ( I , J ,NK)+ (DXY02* (CPT  (I,J,3)+CPT  (I,J,2)) 

&  /DZW* (TWT  (I , J , 2 ) -TOD (I , J ,NK) ) -WWT  -RTW ( I , J ) ) / CCOWT 
TWT  ( I , J , 2 )=TWT  ( I , J , 2 )+(DXY02* (CPT  (l,J,2)+CPT  ( I , J , 1 ) ) /DZW* 

&  (TWT  ( I , J , 1 ) -TWT  ( I , J , 2 ) ) +DZX02* ( CPT  (I,J,2)+CPT  ( I , J , 3 ) ) /DZW* 
&  (TOD(I, J.NK)-TWT  ( I , J , 2 ) ) ) /CCOWT 
TWT  ( I , J , 1 )=TWT  (I, J, 1)+2.*(DXY02*(CPT  (I,J,2)+CPT  ( I , J , 1 ) ) /DZW* 
&  (TWT  ( I , J , 2 ) -TWT  ( I , J , 1 ) ) - DXY* ( TWT  ( I , J , 1 ) -TINF) *HCOEF) /CCOWT 
QCONT  =QCONT  +WWT 
C 

WWB  =VIS ( I , J , 2 ) * (TOD( I,J,1)-T(I,J,  2))*XYPZ2 
T ( I , J , 1  )=TOD ( I , J , 1  ) + (DXY02* ( CPB  (I,J,3)+CPB  (I,J,2)) 

&  / DZW* ( TWB  (I , J , 2) -TOD(I , J , 1  ))-WWB  -RBW ( I , J ) ) / CCOWB 
TWB  (I,J,2)=TWB  ( I , J , 2 ) + ( DXY02* ( CPB  (I,J,2)+CPB  ( I , J , 1 ) ) /DZW* 

&  (TWB  ( I , J . 1 ) -TWB  ( I , J , 2 ) ) +DXY02* ( CPB  (I,J,2)+CPB  ( I , J , 3 ) ) /DZW* 
&  (T(I,J  , 1 ) -TWB  (I, J,2)))/CCOWB 
TWB  ( I , J , 1 )=TWB  ( I , J , 1 )+2 . * (DXY02* ( CPB  (l,J,2)+CPB  ( I , J , 1 ) ) /DZW* 
&  (TWB  ( I , J , 2 ) -TWB  ( I , J , 1 ) ) -DXY* (TWB (I , J , 1 ) -TINF ) *HCOEF ) / CCOWB 
QCONB  =QCONB  +WWB 

274  CONTINUE 

QCONW  =QCONB+QCONR+QCONT+QCONL+QCONRE+QCONF 
GO  TO  73 
C 

C  ***  FOR  THE  CASE  OF  INSULATED  WALLS 
C 

70  CONTINUE 

DO  74  1=2 ,NIM1 
DO  74  J=2 ,NJM1 
T(I,J  1)=T(I,J  2) 

C  IF (NOD ( I , J,NKM1) .EQ.  2)  GO  TO  74 

T ( I , J ,NK) =T ( I , J ,NKM1 ) 

74  CONTINUE 

DO  80  J=2,NJM1 
DO  80  K=2,NKM1 


175 


on  nnonnnooonnnnnnnn  o  on  n  non  noon 


T(1,J,K)=T(2,J,K) 

T (MI , J , K)=T (NIM1 , J , K) 

80  CONTINUE 

DO  76  K=2,NKM1 
DO  76  1=2 ,NIM1 
T ( I , 1 , K ) =T ( I , 2 , K ) 

C  IF (NOD ( I , NJM1 , K) . E0 .  2)  GO  TO  76 

T(I,NJ,K)=T(I,NJM1,K) 

76  CONTINUE 
GO  TO  73 

***  FOR  THE  CASE  OF  THE  RADIATION  WITH  THE  INSULATED  WALLS, 

NOT  AVAILABEL  YET. 

72  CONTINUE 

***  FOR  THE  FREE  BOUNDARY 

73  CONTINUE 

RETURN 
END 

SUBROUTINE  SURRAD 

COMMON  /BL1/BUOY , VISL , VOL , VOLDT , KBOUND , DTI ME , NTREAL , SORSUM , NWRITE 
COMMON  /BL2 /  DX , DY , DZ , DXY , DYZ , DZX , XYOZ , YZOX , ZXOY , XYPZ , YZPX , ZXPY 
COMMON  / BL3/  MI , NJ , NK , NIM1 , MJM1 , NKM1 , NIM2 , NJM2 , NKM2 
COMMON  /BL4/  QCONW  , 

&  QRADF  , ORADW  , ARFP , ARFS , QRADB , QCONB , QRADL , QCONL , QRADR , QCONR , 

&  QRADT , QCONT , Q RAD RE , OCONRE 

COMMON/NE/  U( 22, 18 ,18) ,V( 22 ,18,18 ) ,T( 22 ,18,18) ,R(22, 18,18) , 

&  P( 22, 18, 18) ,W(22,18,13) , WOD (22 , 18 , 18 ) 

&  P( 22, 18, 18) ,W(22,18,18) , WOD (22 ,13,18) ,NOD(22 , 18, 18) 

COMMON/ RAD/ RLW (17,17) , RRW (17,17), RREW (21,17) , RFW( 21 , 17 ) , RBW( 21 , 17 ) 
&  ,RTW(21 , 17 ) .RADHS 

COMMON/VF/VFMXC(67 ,67) ,T4ZON(67) ,TZON(67 ) , RZON(67 ) , AR( 67 ) 

&  , AREA ( 67 ) , VIEW(67 , 67 ) ,COMSRA 

COMMON  /VIEW1/  MI ,MJ,MK,MII , M J J , MKK , MIM , MI P , M JM , M JP , MKM , MKP , 

&  MI IM , MIIP ,MJJM ,MJJP , MKKM ,MKKP ,NHSZ , LZ , NZ ,MZ , 

&  IREGN1 , IREGN2, IREGN3, IREGN4, IREGN5 , IREGN6 , IREGN7 , 

&  MREGN1 ,MREGN2 ,MREGN3 ,MREGN4 ,MREGN5 ,MREGN6 .MREGN7 

COMMON  /VIEW2/  MIIZ(9 ) ,MJJZ(9) ,MKKZ(9) ,LI (9) ,LJ(9) ,LK(9) , 

&  ITHIN(9) , JTHIN(9) ,KTHIN(9) ,AXY(9) ,AYZ(9) ,AZX(9) , 

&  IHSB (9 ) , JHSB (9 ) , KHSB (9 ) , MHSW ( 9 ) , NHSD ( 9 ) , NHSH ( 9 ) , 

&  LTYPE (9 , 6 ) 

***  AREA()  ;  #  OF  CELL  IN  EACH  OF  THE  SURFACE  ZONE 
***  AR ( )  ;  PHYSICAL  AREA  OF  EACH  SURFACE  ZONE  *  H*H 

***  TZON ( )  ;  AVERAGE  TEMPERATURE  OF  THE  SURFACE  ZONE 
***  T4ZON ( ) ;  AVERAGE  TEMPERATURE**4  OF  THE  SURFACE  ZONE 
***  RZON ( )  ;  SIGMA  OF  VIEW  FACTOR  MATRIX  COEFF.  *  T**4 
***  RLW  ,  RRW, 

RREW,  RFW , 

RBW  ,  RTW  ;  RZON( )  FOR  EACH  CELL  WITHIN  ITS  SURFACE  ZONE 
***  RADHS  ;  RAD I OS I TY  OF  EACH  HEAT  SOURCE 
***  QRADW  ;  TOTAL  RADIATIVE  HEAT  FROM  ALL  INTERIOR  WALLS 

***  SURFACE  RADIATION  CONSTANTS,  WHICH  WILL  BE  INCLUDED  INTO  VIEW 
FACTOR  CALCULATION  IN  ORDER  TO  SAVE  CPU  TIME 


DO  401  1=1, NZ 
RZON  (I)=0. 

401  CONTINUE 
RADHS=0 . 

************************* 
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c  ***  LEFT  AND  RIGHT  WALLS 

Q  ■k'k'k'k'k'k'k'kifk'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 

c 

N1=MREGN1+1 

N2=MREGN2+1 

JJJ=1 

DO  131  JJ=1 ,MJ 
J1=JJJ+1 
J2=JJJ+LJ ( JJ) 

KKK=1 

DO  121  KK=1 ,MK 
SUH1=0 . 

SUM2=0 . 

K1=KKK+1 

K2=KKK+LK(KK) 

DO  132  J=J1 , J2 
DO  132  k=K1  K2 

SUM1=SUM1+t(  1,J,K)*T(  1,J,K)*T(  1,J,K)*T 
SUM2=SUM2+T(NI , J,K)*T(NI , J,K)*T(NI , J,K)*T 
132  CONTINUE 

T4Z0N(N1 ) =SUM1/AREA(N1 ) 

T4Z0N(N2 ) =SUM2/ AREA (N2 ) 

KKK=K2 
N1=N1+1 
M2=N2+1 
121  CONTINUE 
JJJ=J2 

131  CONTINUE 


***  REAR  AND  FRONT  WALLS 

N3=MREGN3+1 
N4=HREGN4+1 
111  =  1 

DO  133  11=1, MI 
11=111+1 
I2=III+LI (II) 

KKK=1 

DO  123  KK=1 ,MK 
SUM1=0. 

SUM2=0 . 

K1=KKK+1 

K2=KKK+LK(KK) 

DO  134  1=11,12 
DO  134  K=K1 , K2 

SUM1=SUM1+T( I,  1,K)*T(I,  1,K)*T(I,  1,K)*T 
SUM2=SUM2+T ( I , NJ , K) *T ( I , NJ , K) *T ( I , NJ , K) *T 
134  CONTINUE 

T4ZON (N3)=SUM1/AREA(N3) 
T4ZON(N4)=SUN2/AREA(N4) 

KKK=K2 
N3=N3+1 
'  N4=N4+1 

123  CONTINUE 
111=12 

133  CONTINUE 


*********&* 

***  BOTTOM  and  top  walls 

+  +  +  +  +  +  x  +  +  +  + 


N5=MREGN5+1 

N6=MREGN6+1 

111=1 

DO  135  11=1, MI 


1,J,K) 
NI, J,K) 


I  /  1 / K) 
I ,NJ,K) 
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11=111+1 
I2=III+LI ( II ) 

JJJ=1 

DO  125  JJ=1 ,MJ 
SUM1=0. 

SUH2=0 . 

J1=JJJ+1 
J2=JJJ+LJ ( JJ) 

DO  136  1=11,12 
DO  136  J=J1,J2 

SUM1=SUM1+T(I,J,  1 )*T<I , J ,  1 )  *T  ( I ,  J  ,  l)*T(l,J,  1) 
SUM2=SUM2+T ( I ,  J , NK) *T ( I , J ,NK)*T ( I , J , NK) *T ( I ,  J ,  NK) 
136  CONTINUE 

T4ZON (N5 )=SUM1/AREA(N5 ) 

T4Z0N(N6)=SUM2/AREA(N6) 

J J J=J2 
N5=N5+1 
N6=N6+1 
125  CONTINUE 
111=12 

135  CONTINUE- 


DO  85  1=1 ,MZ 

85  CONTINUE 

SRZON=0. 

DO  88  1=1, NZ 
DO  88  J=1 ,NZ 

RZON ( I ) =RZON ( I ) +  T4Z0N(J)*VFMXC(I,J) 

88  CONTINUE 

DO  86  1=1, NZ 
SRZON=SRZON+RZON ( I ) 

86  CONTINUE 

QRADB=0 . 

QRADRE=0 . 

QRADF  =0. 

QRADR  =0. 

QRADL  =0. 

QRADT  =0. 

DO  111  I=1,MREGN2 
QRADL=QRADL+RZON ( I ) 

111  CONTINUE 

DO  112  I=MREGN2+1 ,MREGN3 
QRADR=QRADR+RZON ( I ) 

112  CONTINUE 

DO  113  I=MREGN3+1,MREGN4 
ORADRE=QRADRE+RZON ( I ) 

113  CONTINUE 

DO  114  I=MREGN4+1,MREGN5 
QRADF  =QRADF  +RZON(I) 

114  CONTINUE 

DO  115  I=MREGN5+1,MREGM6 
QRADB  =QRADB  +RZON(I) 

115  CONTINUE 

DO  116  I=MREGN6+1,MREGN7 
QRADT  =QRADT  +RZON(I) 

116  CONTINUE 

QRADW  =QRADB+QRADT+QRADRE+QRADL+QRADR+QRADF 

■k-k-k-k-k-k-k^-k-k-k'k-k-k'k'k'k'k-k'k-k^^^^'k^^^'k 

DO  786  1=1, HZ 

RZON  ( I )  =RZON  ( I )  / AREA-(  I ) 

786  CONTINUE 
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CC  WRITE (6,143)  N1 ,N2 ,N3 ,N4,N5 ,N6 

CC143  FORMAT  ( 5X,  '  N1  =',I3,3X,'N2  ='/I3,3X,,N3  =',I3,3X,  'N4  =',I3,3X, 
CC  &  1 N5  = 1 , 13 , 3X, '  N6  = ' ,13,// , 5X, 'TZON(I) ,1=1 ,NZ ' ,/) 

C 

CC  CALL  WRITE1 (TZOM, 1 ,NZ) 

C 

CC  WRITE (6 ,144)  SRZON 

CC144  FORMAT (5X, 'SRZON  = 1 , E10 . 2 , // , 5X, ' RZON( I ) , 1=1 , NZ ' , / ) 

C 

CC  CALL  WRITE1 (RZON, 1 ,NZ) 

C 

WRITE (6,145)  QRADL , QRADR , Q RAD RE , QRADF , QRADB , QRADT , QRADW 
145  FORMAT (5X, 'QRADL  = 1 , Ell . 4 , / , 5X, ' QRADR  =‘,E11.4,/, 

&  5X, 1 QRADRE= 1 ,E11 .4 , / , 5X, 1 QRADF  =',E11.4,/, 

&  5X, 'QRADB  =' ,E11.4,/,5X, 'QRADT  =',E11.4,/, 

&  5X, 'QRADW  =' ,E11.4,//) 

C 

c  ***  LEFT  AND  RIGHT  WALLS 

Q  +  +  *  +  **x  +  +  **+  +  ***;:':A*+++/*:***** 

c 

N1=MREGN1+1 

N2=MREGN2+1 

JJJ=1 

DO  137  JJ=1 ,MJ 
J1=JJJ+1 
J2=JJJ+LJ ( JJ ) 

KKK=1 

DO  127  KK= 1 , MK 
K1=KKK 

K2=KKK+LK(KK) 

DO  138  J=J1,J2 
DO  138  K=K1,K2 
RLW(J,K)=RZON(Nl) 

RRW(J,k)=RZON(N2) 

138  CONTINUE 

N1=N1+1 

N2=N2+1 

KKK=K2 

127  CONTINUE 
JJJ=J2 

137  CONTINUE 
C 

c 

C  *************************** 

C  ***  REAR  AND  FRONT  WALLS 

c 

N3=MREGN3+1 

N4=MREGN4+1 

111=1 

DO  139  11=1, MI 
11=111+1 
I2=III+LI ( II ) 

KKK=1 

DO  129  KK= 1 , MK 

K1=KKK+1 

K2=KKK+LK(KK) 

DO  140  1=11,12 
DO  140  K=K1,K2 
RREW(I , K)=RZON(N3) 

RFW  (I ,K)=RZ0N(N4) 

140  CONTINUE 
KKK=K2 
M3=N3+1 
N4=N4+1 
129  CONTINUE 
111=12 

139  CONTINUE 
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c 

c 

Q  'k'k  'k'k'k'k'k'k'k  'k'k'k-r'k'k'k  'k^c'k^'k'r'k'k'k'k^: 

C  ***  BOTTOM  AND  TOP  WALLS 

c 

N5=MREGN5+1 
N6=MREGN6+1 
111  =  1 

DO  141  11=1, MI 
11=111+1 
I 2=11 I+LI ( II ) 

JJJ=1 

DO  128  JJ=1 ,MJ 
J1=JJJ+1 
J2=J J J+LJ ( J J) 

DO  142  1=11,12 
DO  142  J=J1,J2 
RBW(I, J)=RZON(N5) 

RTW(I , J)=RZON(N6) 

142  CONTINUE 
JJJ=J2 
N5=N5+1 
N6=M6+1 
128  CONTINUE 
111=12 

141  CONTINUE 
C 
C 

RADHS=0 . 

DO  23  N=1 , NHSZ 
LZ=MZ+N 

WRITE (6, 24)  N,  RZON(LZ) 

24  FORMAT (/,5X, 'HEAT  SOURCE  NUMBER  : 1 , 12 , 5X, ' RZON(LZ)  =',E11.4,/) 
RADHS=RADHS+RZON ( LZ ) 

23  CONTINUE 
C 

WRITE (6, 99)  RADHS , SRZON 

99  FORMAT (2X, 'RADHS;  TOTAL  RADIOS ITY  =  '  , Ell .4, 2X, ' SRZON  =',E11.4,/) 
C 

C  ***  PRINT  OUT  WALL  ZONE  RADIATIVE  FLUX 
C 

CC  IF (NTREAL .NE .NWRITE)  GO  TO  11 

CC  WRITE (6,151) 

CC151  FORMAT ( 5X, ' ( (RLW( J,K) , K=1 ,NK) , J=1 ,NJ) 1 ,//) 

CC  CALL  WRITE2(RLW,NI,1,NJ,1,NK) 

C 

CC  WRITE (6,152) 

CC152  FORMAT (5X, ' ( (RRW(J,K) ,K=1,NK) , J=1,NJ) ' ,//) 

CC  CALL  WRITE2(RRW,NI,1,NJ,1,NK) 

C 

CC  WRITE (6,153) 

CC153  FORMAT (5X, ' ( (RREW(I ,K) ,K=1 ,NK) , 1=1 ,NI) ' ,//) 

CC  CALL  WRITE2(RREW,NI,1,NI,1,NK) 

C 

CC  WRITE (6, 154) 

CC154  FORMAT (5X, ' ( (RFW(I,K) ,K=1 ,NK) , 1=1 ,NI) ' ,//) 

CC  CALL  WRITE2 (RFW, NI , 1 ,NI , 1 ,Nj) 

C 

CC  WRITE (6,155) 

CC155  FORMAT (5X, ' ((RBW(I,J) , J=1 ,NJ) , 1=1 ,NI ) ' ,//) 

CC  CALL  WRITE2 (RBW,NI , 1 ,NI , 1 ,Nj) 

C 

CC  WRITE(6 , 156) 

CC156  FORMAT (5X, 1 ( (RTW(l , J) , J=1 ,NJ) , 1=1 ,NI) ' ,//) 

CC  CALL  WRITE 2 (RTW ,NI , 1 ,NI , 1 , NJ ) 

C 

CC  11  CONTINUE 
C 


ISO 


RETURN 

END 

SUBROUTINE  WRITE 1 (ARRAY . II . 12) 

c 

DIMENSION  ARRAY ( 1 ) 

C 

M=I1 

N=1 

2  CONTINUE 

IF(N.GT. 12/10)  GO  TO  3 

WRITE (6,1)  (I ,ARRAY(I) ,I=M,M+9) 

1  FORMAT ( IX, 10 ( 12 , 1PE9 . 2 , 1 ,  ')) 

M=M+10 

N=N+1 
GO  TO  2 

3  CONTINUE 

WRITE (6,1)  ( I , ARRAY (l),I=M,I2) 

RETURN 

END 

SUBROUTINE  WRITE2 (DUMMY ,MN. II , 12 . J1 . J2) 

c 

DIMENSION  DUMMY (MN , 1 ) 

C 

M=1 

K=J1 

MK=J2/10 
DO  1  1=11.12 
WRITE (6, 2)  I 

2  FORMAT (5X, 1 1  ='/I2,2X/'J  =  ',/) 

4  CONTINUE 
IF(M.GT.MK)  GO  TO'  5 

WRITE (6,3)  ( J , DUMMY ( I , J ) , J=K , K+9 ) 

3  FORMAT ( IX , 10 ( 12 , 1PE9 . 2 , 1 ,  ')) 

K=K+10 

M=M+1 
GO  TO  4 

5  CONTINUE 

WRITE (6,3)  (J,DUMMY(I, J) ,J=K,J2) 

M=1 

K=J1 

1  CONTINUE 
RETURN 
END 

SUBROUTINE  VIEWMX 

Q  **********************************************  *****:**************** 

c 

COMMON  /BL1 /BUOY , VISL , VOL , VOLDT , KBOUND , DTI ME , NTREAL , SORSUM , NWRITE 
COMMON  /BL2/  DX,DY,DZ,DXY, DYZ , DZX , XYOZ , YZOX , ZXOY , XYPZ , YZPX , ZXPY 
COMMON/ CONS/XTIME , NT , UO , PRT , TA , 

&  NTMAX0,RA, CP AIR, SIGMA 

C 

COMMON/VF /VFMXC( 67 , 67 ) , EM(67 ) , TZON(67 ) ,RZON(67) ,AR(67) 

&  , AREA ( 67 ), VIEW (67,67 ) ,CONSRA 

COMMON  / VIEW1 /  MI , M J , MK , MI I , MJ J , MKK , MIM , MIP , MJM , M JP , MKM , MKP , 

&  MI IM , MI IP , MJ JM , MJ JP , MKKM , MKKP , NHSZ , LZ , NZ , MZ , 

&  IREGN1 , IREGN2 , IREGN3 , IREGN4 , IREGM5 , IREGN6 , IREGN7 , 

&  MREGN1 ,MREGN2 ,MREGN3 ,MREGN4 ,MREGN5 ,MREGN6 .MREGN7 

COMMON  /VIEW2/  MIIZ(9) ,MJ JZ (9 ) ,MKKZ (9 ) . LI (9) , LJ (9 ) , LK ( 9 ) , 

&  ITHIN(9) , JTHIN(9) ,KTHIN(9) ,AXY(9) ,AYZ(9) , AZX(9) , 

&  IHSB(9) , JHSB(9) ,KHSB(9) ,NHSW(9) ,NHSD(9) ,NHSH(9) , 

&  LTYPE(9 , 6) 

C 

DIMENSION  VFMXL(67,67) ,VFMXR( 67,67 ) ,VFMXIN( 67,67 ),WKAREA( 134) 

C 

C  ***  THE  CALCULATION  OF  VIEW  FACTORS  IS  DONE  IN  SEPERATE  COMPUTER  CODE. 
C  THE  DATA  IS  READ  IN  THE  BEGINNING  OF  THIS  CODE  FROM  THE  TAPE  OR 

C  DISK.  HERE  THE  SURFACE  RADIATION  MATRIXES  ARE  SET  UP. 
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non  non  no  on  nnnnnnnnnnnnnn  noon 


***  EMISSIVITY  FOR  THE  SURFACES 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

DO  10  N=1 , NHSZ 
LZ=MZ+N 
EM(LZ)=0 .81 
10  CONTINUE 

DO  3  1=1, MZ 
EM ( I ) =0 . 84 
3  CONTINUE 

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

***  CALCULATE  THE  COEFICIENTS  OF  THE  MATRIX  FOR  THE  SYSTEM  OF  SURFACE 
RADIATIVE  FLUX  EQUATIONS 
THE  STRUCTURE  OF  MATRIX  IS 
J=LW , RW , REW , FW , BW , TW , TB  TOTAL  IS  MZ  TERM 

I=LW 

RW  THE  ARRAY  IS  LAID  OUT  AS  FOLLOWS 

REW  LW(1,1) (1,2),.. (1,5), (2,1) (2, 2).. (2, 5), (3,1).. (3, 5) 

FW 

BW 

TW 

HS 


DO  2  1=1, MZ 
DO  2  J=1 ,NZ 

VFMXL (I,J)=(EM(J)-1. )*VIEW(I ,J)/EM(J)/AR(J) 

VFMXR(I , J)=-VIEW(I , J)*SIGMA 
2  CONTINUE 
DO  1  1=1, NZ 

VFMXL  (I,.I)  =  (l.-VIEW(I,I)*(l.-EM(I)))/(AR(l  )*EM(  I ) ) 
VFMXR ( I ; I ) =S I GMA* (1. -VIEW (I, I)) 

1  CONTINUE 
NN=NZ 
MM=NZ 
IA=NZ 
IAIN=NZ 
IDGT=3 

***************************************************** 
CALL  LINV1F(VFMXL. IA/NN, VFMXIN, IDGT, WKAREA, IER) 

DO  3011  1=1, NZ 
DO  3011  J=1 ,NZ 
VFMXC ( I , J)=0 . 

DO  3011  K= 1 , NZ 

VFMXC ( I , J) =VFMXC ( I , J) +VFMXIN ( I , K ) *VFMXR (K, J) 

3011  CONTINUE 

***  NONDIMENS IONIZE  THE  RADIATIVE  MATRIX  COEFICIENTS 

DO  1233  1=1 ,NZ 
DO  1233  J=1 , NZ 

VFMXC ( I , J ) = VFMXC (I , J) *CONSRA 
1233  CONTINUE 

***  PRINT  OUT  VIEW  FACTOR  MATRIX  COEFFICIENTS 

IF (NTREAL.NE.NWRITE)  GO  TO  12 
WRITE (6, 11) 

11  FORMAT (/ , 5X, 1 (VFMXC(I,J) , J=1 , NZ) , 1=1 ,NZ) 1 ,/) 

CALL  WRITE 2 (VFMXC , NZ , 1 , NZ , 1 ,NZ) 

C 

12  CONTINUE 
C 

RETURN 

END 


182 


uu  u  u  uuuuu  u  uuu  uuu  uuu  u  uuu 


SUBROUTINE  CALVIS 

********  K*JsxJt*X*^**  ******  7*7* 


COMMON  /BL1 /BUOY /VISL , VOL , VOLDT , KBOUND , DTI ME ,NTREAL , SORSUM ,NWRITE 
COMMON  /BL2/  DX , DY , DZ , DXY , DYZ , DZX , XYOZ , YZOX , ZXOY , XYPZ , YZPX , ZXPY 
COMMON  /BL3/  NI ,NJ,NK, NIM1 , NJM1 , NKM1 , NIM2 , NJM2 , NKM2 
COMMON/ CONS/ XT IME , NT , UO , PRT , TA , 

&  NTMAXO , RA , CPAIR , SIGMA 

COMMON/NE/'  U(22 , 18 , 18) ,V(22,18,18) ,T(22, 18,18) ,R(22, 18,18) , 

&  P (22, 18, 18) ,W( 22, 18, 18) ,WOD(22, 18, 18) 

&  P(22,18,18),W(22,18,18) , WOD(22 ,18,18) , NOD (22 , 18, 18) 

COMMON/BL 12/  DYZ02 , DZX02 , DXY02 , XYPZ2 , YZPX2 , ZXPY2 , DX4 , DY4 , DZ4 
&  , XYOZ2 , YZOX2 , ZXOY2 , DYZ04 , DZX04 , DXY04 

COMMON/BLIO/  Z(30 ) , REQ (30 ) , VIS ( 22 , 18 , 18) , RRES (3 ) 

COMMON/ BL80/BTURB , ABTURB , CNT , DX2 , DY2 , DZ2 , VISMAX 
&  , 5MPP( 22 ,18,18) , RI ( 22 , 18 , 18) 


COMMON  /VIEW2/  MIIZ (9) ,MJJZ (9 ) , MKKZ (9 ) , LI (9 ) , LJ(9) , LK(9 ) , 

&  ITHIN(9) , JTHIN(9) ,KTHIN(9) , AXY(9) , AYZ(9) , AZX(9 

&  IHSB(9) , JHSB(9) ,KHSB(9) ,NHSW(9) ,NHSD(9) ,NHSH(9 

&  LTYPE (9,6) 

***  CALCULATE  LOCAL  SHEAR  AND  VISCOSITY  VIS(l,J,K) 

***  SPECIFY  LOCAL  TURBULENT  LENGTH  SCALES  SMPP(I,J,K) 

DO  611  1=2 , NIM1 

IP1=I+1 

IM1=I-1 

DO  611  J=2,NJM1 

***  CACULATE  DV/DX ,D2V/DX2 ,DU/DX, D2U/DX2 , DW/DX  AND  D2W/DX2 

JM1=J-1 

JP1=J+1 

DO  611  K=2 ,NKM1 
KM1=K- 1 
KP1=K+1 

IF (MOD ( I , J , K) . GE . 11 )GO  TO  611 

DVDX= ( V (IP1 ,JP1 ,K)+V(IP1 , J , K) -V ( IM1 , J ,K) -V( IM1 , JP1 , K) ) /DX4 
D2VDX2=((V(IP1,  JP1,K)+V(IP1,.J,K))-2.*(V(I,  JP1,K)+V(I,  J,K)) 

&  +(V(IM1 , JP1 ,K)+V(IM1 , J,K)))/DX2 

DUDX=(U(IP1 , J,K)-U(I, J,K) )/DX 

D2UDX2=( (U(I+2, J,K)-U(I, J,K))-(U(IP1, J,K)-U(IM1, J,K)))/DX2 
DWDX= (W ( IP1 ,J,KP1)+W(IP1,J,K)-W( IM1 , J , K) -W( IM1 , J , KP1 ) ) /DX4 
D2WDX2= ( (W( IP1 , J , KP1 )+W( IP1 ,J,K))-2.*(W(I,J,KP1)+W(I,J,K)) 

&  + (W( IM1 , JP1 , K)+W ( IM1 , J ,K) ) )/DX2 

602  CONTINUE 

***  CALCULATE  DU/DY , D2U/DY2 , DV/DY , D2V/DY2 , DW/DY  AND  D2W/DY2 

DUDY= (U (I , JP1 , K)+U( IP1 , JP1 , K) _U ( IP1 , JM1 , K) -U( I , JM1 , K) ) /DY4 
D 2 UD Y 2=  ( ( U_(  I ,  JP 1 K )  +  U  ( I P 1 ,  JP  1_,  :  2.  *  ( U  ( I ,  J ,  K  )  +U  ( I P 1 ,  J  ,  K  )  ) 


): 


/DY2 


&  +(U(I,  JM1  .K)+U(IP1 ,  JM1  .K)  , ,  / 

DWDY= (W( I , JP1 , K)+W(IP1 , JP1 , K) -W( IP1 , JM1 , K) -W( I , JM1 , K) ) /DY4 
D2WDY2=((W(I, JP1,K)+W(I,JP1,KP1))-2.*(W(I, J,K)+W(I, J,KP1)) 
&  +(W(I, JM1,K)+W(I,JM1,KP1)))/DY2 

DRDY=(R(I , JP1 ,K)-REQ(KP1)-R(I, JM1 ,K)+REQ(KM1) )/DY*.5 
DVDY= (V ( I , JP1 , K) -V ( I , J , K) ) /DY 

D2VDY2= ( ( V ( I , J+  2 , K ) - V ( I , JP1 , K ) ) - ( V ( I , J , K ) - V ( I , JM1 , K) ) ) /DY2 
606  CONTINUE 

***  CALCULATE  DU/DZ , D2U/DZ2 , DV/DZ , D2V/DZ2 , DW/DZ  AND  D2W/DZ2 

DUDZ= (U ( I , JP1 , K)+U(IP1 , JP1 ,K) -U( IP1 , JM1 , K) -U( I , JM1 , K) )/DZ4 
D2UDZ2=((U(I , JP1 ,K)+U(IP1, JP1 ,K))-2.*(U(I, J,K)+U(IP1 , J,K)) 
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Sc  +(U(I,JM1.K)+U(IP1,JM1.K)))/DZ2 

DVDZ=(V(I , JP1 ,K)+V(I , JP1 ,KP1 )-V(I , JM1,KP1)-V(I ,  JM1 ,K) )/DZ4 
D2VDZ2=( (V(I , JP1 ,K)+V(I , JP1 , KP1 ) ) -2 . *( V( I , J,K)+V(I, J,KP1)) 

Sc  +'( V(  I ,  JM1 .  K)  +V ( I ,  JM1 ,  KP1 ) ) )  / DZ2 

DRDZ= (R( I,J,KPl)-REQ(KPl)-R(I,J, KM1 ) +REQ (KM1 ) ) /DZ2 
DWDZ= ( W ( I , J , KP 1 ) -W ( I , J , K ) ) /DZ 

D2WDZ2=((W(I, J,K+2)-W(I, J , KP1 ) ) - (W( I , J,K)-W(I, J,KM1)))/DZ2 
C 

C  ***  •  CALCULATE  RICHARDSON  NUMBER 

C 

STRAIN=DUDY**2+DVDX**2+DWDX**2+DVDZ**2+DWDY**2+DUDZ**2 

DD02  =  SQRT(DUDY*DUDY+DUDX*DUDX+DUDZ*DUDZ+DVDY*DVDY+DVDX*DVDX+ 

Sc  DVDZ*DVDZ+DWDX*DWDX+DWDY*DWDY+DWDZ*DWDZ ) 

IF (DD02 . EQ . 0 . )GO  TO  600 

C  ***  CALCULATE  TURBULENT  LENGTH  SCALE  SMPP(I,J) 

C 

SMP123=SQRT(U(I, J,K)*U(I, J,K)+V(I, J,K)AV(I , J,K)+W(I, J,K)*W(I , J,K)) 
&  /DD02 

SMPP12=DD02  /SORT (D2UDX2^D2UDX2+D2UDY2AD2UDY2 
&  +D2UDZ2*D2UDZ2~+D2VDX2*D2VDX2+D2VDY2*D2VDY2+D2VDZ2*D2VDZ2+ 

■Sc  DZWDZZ^DZWDZZ+DZWDXZ^DZWDXZ+DZWDYZ^DZWDYZ) 

SMPP(I, J.K)=CNT*(SMP123+SMPP12)*.5 
RI  ( I ,  J  ,  K)  =  -BUOY;i:DRDZ/  (R(I,J,K)  ^STRAIN) 

ABRIPR=ABTURB+RI ( I , J , K) /PRT 
IF (ABRIPR  .LT.  0.)  GO  TO  600 
IF ( ABRIPR  .EQ.  0.)  GO  TO  613 
GO  TO  610 

600  VIS(I , J,K)=VISL 
GO  TO  611 

613  VIS(I, J,K)=VISMAX 
GO  TO  611 

610  VIS (I , J , K)=VISL+R(I , J , K)*SMPP(I , J , K)*SMPP(I , J , K) *SQRT (STRAIN) / 

&  (BTURB^ABRIPR) 

IF (VIS ( I , J , K)  .GT.  VISMAX)  VIS (I , J , K)=VISMAX 

611  CONTINUE 

CC  DO  41  I=IVW , IVE 

CC  DO  41  J= JVS , JVN 

CC  VIS(I , J,NK)=VIS(I7 J,NKM1) 

CC  41  CONTINUE 

CC  DO  42  I=IDW, IDE 

CC  DO  42  K=2 , KD1 

CC  VIS ( I ,NJ , K)=VIS ( I ,NJM1 , K) 

CC  42  CONTINUE 
RETURN 
END 

SUBROUTINE  CALUV 

C  *******7(*X***A***XXX*******A*************A***************M*********^ 

C 

COMMON  /BL1/BUOY, VISL , VOL , VOLDT , KBOUND , DTIME ,NTREAL , SORSUM , NWRITE 
COMMON  /BL2/  DX , DY , DZ , DXY , DYZ , DZX , XYOZ , YZOX , ZXOY , XYPZ , YZPX , ZXPY 
COMMON  /BL3/  NI ,NJ ,NK,NIM1 ,NJM1 ,NKM1 ,NIM2 ,NJM2 ,NKM2 
COMMON/CONS/XTIME ,NT , UO , PRT , TA , 

Sc  NTMAXO,  RA,  CPA IR,  SIGMA 

COMMON/NE/  U(22,18,18) ,V( 22 ,18,18) ,T (22, 18,18) ,R (22, 18,18 ) , 

Sc  P(22,18,18)  ,W(22,18,18)  ,  WOD(  22 ,18,18)  ' 

C  Sc  P(22, 18,18)  ,W(22,18,18)  ,  WOD  (22 ,18,18)  ,  NOD  (22,18,18) 

COMMON/ OD/UOD (22,18,18) , VOD ( 22 , 18 , 18) , TOD( 22 , 18 , 18) , ROD (22 , 18 , 18 ) 
COMMON/BL31/TPD (22 ,18,18) , RPD (22,18,18), UPD( 22 ,18,18) , 

Sc  VPD(  22,18,18)  ,  WPD  (22,18,18)  ,PPD(  22, 18,18)  ,RESORM(20)  ,  ITER 
COMMON/ CO/ AP (22, 18, 18) , AE (22 , 18 , 18) , AW( 22 , 18 , 13 ) , AN( 22 , 18 , 18) , 

Sc  AS(22,18,18)  ,SU(22,18,18)  ,SP(22 , 18, 18)  ,AF(  22, 18,18)  ,  AB  (22 , 18 , 18) 
COMMON/ PP/ DU (22,18,18) , DV( 22 , 18 , 18) , DW( 22 , 18 , 18) , PP ( 22 , IS , 18 ) 
COMMON/ BL 10/  Z ( 30 ) , REQ ( 30 ) , VIS ( 22 , 18 , 18) , RRES (3 ) 

C0MM0N/BL1 2/  DYZ02 , DZX02 , DXY02 , XYPZ2 , YZPX2 , ZXPY2 , DX4 , DY4 , DZ4 
Sc  ,  XYOZ 2  ,  YZ0X2  ,  ZX0Y2  ,  DYZ04  ,  DZX04  ,  DXY04 

COMMON  /VIEW2/  MIIZ(9) ,MJJZ (9 ) ,MKKZ (9 ) . LI (9 ) , LJ ( 9 ) ,LK(9) , 

Sc  ITHIN(9)  ,  JTHIN(9)  ,KTHIN(9)  ,AXY(9)  ,AYZ(9)  ,AZX(9)  , 

Sc  IHSB(9)  ,  JHSB(9)  ,KHSB(9)  ,NHSW(9)  ,NHSD(9)  ,NHSH(9)  , 

Sc  LTYPE  (9,6) 
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C 

DO  100  1=3 ,NIM1 
IP1=I+1 
IM1=I-1 

DO  100  J=2 ,NJH1 
JP1=J+1 
JM1=J-1 

DO  100  K=2 , NKM1 
KP1=K+1 
KM1=K- 1 

IF (NOD ( I , J , K) . GE . 11 ) GO  TO  100 
IF(N0D(I, J,K) .EQ.3)G0  TO  1000 


CE=DXY02*R 
CW=DYZ02*R 
CN=DZX04* ( 


I,J,K)*(U  I ,J,K)+U(IP1,J,K)) 

IM1 , J , K) ^ (U(l , J , K) +U( IM1 , J , K) ) 

;r(i,j,k)+r(i,jpi,k) )  *v(i  ,jpi,k) 

&  +(R(IH1, J,K)+R(IM1 . JP1,K))*V(IM1, JP1,K) ) 

CS=DZX04*((R(I,J,K)+R(I,JM1,K))  *V(I  ,J,K) 

&  +(R( IM1 , J , K)+R( IM1 . JM1 ,K))*V(IM1 , J,K)) 

CF=DXY04*((R(I, J,K)+R(I, J,KP1) )  *W(I, J,KP1) 

&  +(R(IM1, J,K)+R(IM1 , J,KP1) )*W(IM1, J,KP1) ) 

CB=DXY04*((R(I, J,K)+R(I, J,KH1))  *W(I, J,K) 

&  +(R(IM1 , J ,K)+R(IM1 , J,KM1) )*W(IM1 , J,K) ) 


VISCE=VIS ( IP1 , J,K) 

VISCW=VIS  INI, J,K 
VISCS=VIS ( I , JM1 ,K ) 

VISCN=VIS ( I , JP1 ,K) 

VISCB=VIS ( I , J , KM1 ) 

VISCF=VIS(I, J.KPl) 

AE ( I , J , K ) =0 . 5* (  ABS ( CE ) -CE ) +YZOX*VI SCE 
AW  I , J , K  =0 . 5*  ABS  ( CW  +CW  +YZOX*VISCW 
AN  ( I , J , K ) =0 . 5* (  ABS(CN)-CN)+ZXOY*VISCN 
AS (I, J,K)=0 .5*(  ABS(CS)+CS)+ZXOY*VISCS 
AF ( I , J , K; =0 . 5* (  ABS(CF)-CF)+XYOZ*VISCF 
AB(I, J,K)=0.5*(  ABS(cb)+CB)+XYOZ*VISCB 


SP ( I , J , K ) =-0 . 5* ( ROD ( I , J . K ) +ROD ( IM1 , J , K ) ) *VOLDT 
PX= (P (IM1,J,K)-P(I,J,K)) *DYZ 

RU=0 . 5* (ROD ( IM1 . J , K)+ROD ( I . J . K) ) *UOD ( I , J ,K)*VOLDT 
RE=(UOD(IPl , J.K)-UOD(I, J,K) )*VISCE*YZOX 
RW=  UOD ( I ,  J , K) - UOD ( IM1 , J , K) ) *VISCW*YZOX 
RN=  VOD ( I , JP1 , K) -VOD ( IM1 , JP1 , K) ) *VISCN*DZ 
RS= ( VOD ( I , J  , K) -VOD ( IM1 , J  ,K) )*VISCS*DZ 
RF= ( WOD ( I , J , KP1 ) -WOD ( INI , J , KP1 ) ) *VISCF*DY 
RB=(W0D ( I , J , K  )-WOD(IMl , J,K  ))*VISCB*DY 
SU ( I , J , K)=PX+RU+RE-RW+RM-RS+RF-RB 
GO  TO  100 
D00  SU( I , J , K)=0 . 

AP(I , J,K)=1 .E20 
100  CONTINUE 


***  LEFT  AND  RIGHT  WALLS 

DO  101  J=2,NJM1 
DO  101  K=2 , NKM1 
AW( 3 , J , K)=0 . 

CW=(R(2, J,K)+R(3, J,K))*U(3, J,K)*DYZ04 
VISW=VIS (2 , J , K) 

SP ( 3 , J , K )  =SP  (3, J,K)-0.5*(  ABS  ( CW)  +CW )  -YZOX*VISW 
AE (MINI , J , K)=0 . 

CE=(R(NIM1 , J,K)+R(NIM2, J,K) )*U(NIM1, J,K)*DYZ04 
VISE=VIS (MINI , J , K) 

SP(NIM1, J,K)=SP(NIM1, J,K)-0.5*(  ABS (CE) -CE) -YZOX*VISE 
101  CONTINUE 
C 

DO  102  1=3 ,NIM1 
IM1=I-1 
C 
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***  REAR  AND  FRONT  WALLS 

DO  107  K=2,NKM1 
AS (I , 2 , K) =0 . 

VISS=0.25*(2. *VISL+VIS (I,2(K)+VIS(IM1,2,K)) 

SP(I/2,K)=SP(I/2,K)-ZXOY2*VISS 

AN ( I , NJM1 , K) =0 . 

IF (NOD ( I , NJM1 , K) . EQ . 2 )G0  TO  107 
VISN=0.25*(2. *VISL+VIS ( I .NJM1 , K)+VIS (IM1 ,NJM1 , K) ) 
SP(I ,NJM1,K)=SP(I ,NJM1 ,K) -ZX0Y2XVISN 
107  CONTINUE 

***  TOP  AND  BOTTOM  WALLS 

DO  103  J=2 ,NJM1 
AB ( I , J , 2 ) =0 . 

VISB=0.25*(2.*VISL+VIS(I ,  J  ,  2 ) +VIS  ( IM1 ,  J,2) ) 

SP ( I , J , 2 )  =  SP ( I , J , 2 ) -XYOZ2*VISB 
AF { I , J ,NKM1 ) =0 . 

IF (MOD ( I ,  J  , NKM1 ) . EQ . 2 )  GO  TO  103 
VISF=0 .25*(2.*VISL+VIS(I . J ,NKM1 )+VIS (IM1 , J,NKM1) ) 
SP ( I , J ,NKM1 )=SP( I , J ,NKM1 ) -XYOZ2xVISF 
103  CONTINUE 
102  CONTINUE 

***  THE  TEST  BLOCK 


***  THE  CELLS  WITH  N0D(I,J,K)  =  3 

THE  VALUES  OF  SU  AND  AP  ARE  GIVEN  IN  DO  LOOP  100 

***  ASSEMBLY  THE  COEFICIENTS 

DO  300  K=2 ,NKM1 
DO  300  J=2 ,NJM1 
DO  300  1=3 ,NIM1 

IF (NOD ( I , J , K) . GE . 11 . OR .NOD (I,J,K) .EQ.3)GO  TO  300 
AP ( I , J , K ) =AE ( I , J , K ) + AW ( I , J , K ) + AN ( I , J , K ) + AS ( I , J , K ) + AF ( I , J , K ) + 
&  AB(I ,J,K)-SP(I, J,K) 

DU ( I , J , K) =DYZ/AP ( I , J , K) 

300  CONTINUE 

CALL  TRID (3 , 2 , 2 ,NIM1 , NJM1 , NKM1 , U ) 

***  GIVE  THE  U-VELOCITY  IN  THE  VENT  AND  DOOR  GAP 


C  SUBROUTINE  CALV 


DO  150  1=2 ,NIM1 

IM1=I-1 

IP1=I+1 

DO  150  J=3 ,NJM1 
JM1=J- 1 
JP1=J+1 

DO  150  K=2 ,NKM1 
KM1=K- 1 
KP1=K+1 

IF ( J . EQ .NJ . AND .NOD ( I ,NJM1 , K) .NE . 2 )GO  TO  1050 
IF (NOD f I , J , K) . GE . 11 )GO  TO  150 
IF (NOD (I,J,K) .EQ.4)GO  TO  1050 

CE=((R(I, J,K)+R(IP1, J,K))*U(IP1, J,K) 

&  + ( R ( I , JM1 , K ) +R ( IP 1 , JM1 , K ) ) *U ( I PI , JM1 , K ) ) ^DYZ04 

CW=( (R(I , J,K)+R(IM1, J,K) )*U(I , J,K) 

&  + (R( I , JM1 , K) +R( IM1 , JM1 , K) )*U ( I  , JM1 , K) ) *DYZ04 

IF ( J . EQ . NJ ) GO  TO  1060 
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1060 

1070 


C 


C 


1080 

1090 


C 

C1050 

C 

150 


CN=R (I,J/K)A(V(I/J,K)+V(I,JP1,K))  *DZX02 
GO  TO  ’1070 

CN=R(I, J,K)*V(I, J,K)*DZX 
CONTINUE 

CS=R(I, JM1,K)*(V(I, J,K)+V(I, JM1,K))*DZX02 
CF= ( (R( I , J , K)+R( I , J , KP1 ) ) *W( I , J , KP1 ) 

Sc  + (R( I , JM1 , K) +R( I . JM1 , KP1 ) ) *W( I , JM1 , KP1 ) 

CB=((R(I, J,K)+R(I, J,KH1))*W(I, J,K) 

Sc  +  (R( I ,  JM1 , K)+R(  I ,  JM1 ,  KM1 ) ) *W( I ,  JM1 , K  ) 


) *DXY04 
)*DXY04 


VISCE=VIS (IP1 , J ,K) 

VISCW=VIS ( IM1 ,  J ,  K) 

VISCS=VIS  I, JM1,K) 

V I S  CN=V I S ( I , JP 1 , K ) 

VISCB=VIS { I , J , KM1 ) 

VISCF=VIS(I, J.KPl) 

AE(I , J,K)=0 . 5X(  ABS ( CE ) - CE ) +YZOX*VI SCE 
AW ( I , J , K ) =0 . 5  * (  ABS ( CW ) +CW ) +YZOX*VI S CW 
AN ( I , J , K ) =0 . 5* (  ABS { CN ) - CN ) +ZXOY*VI SCN 
AS ( I , J , K  =0 . 5* (  ABS ( CS ) +CS ) +ZXOY*VISCS 
AF  I,J,K  =0.5*  ABS(CF)-CF)+XYOZ*VISCF 
AB(I , J,K)=0.5*(  ABS(CB)+CB)+XYOZ*VISCB 


SP( 
PY= 
RU= 
RE= 
RW= 
IF  ( 
RN= 
GO 

RN=0 


I,  J,K)=-0.5*(ROD(I, J.K)+ROD(I, JM1 , K) ) *VOLDT 
(P(I, JM1,K)-P(I,J,K))*DZX 
0.5*(ROD(I, J,K)+ROD(I/ JM1,K 
(UOD ( IP1 , J , K ) -UOD( IP1 , JM1 , K 
( UOD ( I  , J , K) -UOD( I  , JM1 , K 

J .  EO . NJ ) GO  TO  1080 

(VOD ( I , JP1 , K) - VOD ( I , J , K) ) *VISCN*ZXOY 
TO  1090 


*VOD ( I . J , K ) *VOLDT 

*VISCE*DZ 

*VISCW*DZ 


CONTINUE 

RS=(VOD(I,J,K) -VOD ( I , JM1 , K) )*VISCS*ZXOY 
RF= ( WOD ( I , J , K+l ) -WOD ( I , JM1 , K+l ) ) *VISCF*DX 
RB= (WOD ( I , J , K  ) -WOD ( I , JM1 , K  ))*VISCB*DX 
SU( I , J , K)=PY+RU+RE-RW+RN-RS+RF-RB 
GO  TO  150 
SU( I , J , K)=0 . 

AP( I , J , K)=  1.E30 
CONTINUE 


***  RIGHT  AND  LEFT  WALLS 


DO  151  J=3 ,NJM1 
JM1=J-1 

DO  151  K=2 ,NKM1 
AW ( 2 , J , K)=0 . 

VISW=0 . 25* ( 2 . *VISL+VIS ( 2 , J , K)+VIS ( 2 , JM1 , K) ) 
SP(2,J,K)=SP(2/J , K) -YZOX2*VISW 
AE (NIM1 , J ,K)=0 . 

VISE=0.25*(2. *VISL+VIS (NIM1 , J , K)+VIS (NIM1 , JM1 ,  K) ) 

SP (NIM1 ,J,K)=SP(NIM1,J/K) -YZOX2xVISE 
151  CONTINUE 

***  THE  REAR  AND  FRONT  WALLS 

DO  152  1=2 ,NIN1 
DO  152  K=2 , NKM1 
AS ( I , 3 , K) =0 . 

CS=R(l ,2,K)*V(I,3/K)*DZX02 
VISS=VIS ( I , 2 , K) 

SP(I ,3,K)=SP(I,3,K)-0.5*(  ABS (CS )+CS ) -ZXOY*VISS 
C  IF (NOD ( I ,NJH1 , K) . EQ . 2 )GO  TO  170 

AM(I ,NJM1 ,K)=0 . 

CN=R ( I , NJM1 , K ) *V ( I , NJM1 , K ) *DZX02 
VISN=VIS ( I , NJM1 , K) 

SP(I  ,NJM1  ,K)=SP(I  ,NJMl,K)-0.5*(  ABS  (CN) -CN)  -ZXOY*VISN 
C  GO  TO  152 
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C  170  AN( I ,NJ ,K)=0 . 

152  CONTINUE 

***  THE  TOP  AMD  BOTTOM  WALLS 

DO  153  1=2 , NIM1 
DO  153  J=3 , NJM1 
JM1=J- 1 
AB ( I , J , 2 )=0 . 

VISB=0.25*(2.*VISL+VIS(I, J,2)+VIS(I, JM1,2)) 

AP ( I , J , 2 ) =AP ( I ,  J  ,  2 ) -XYOZ2*VI SB 
AF ( I , J , NKM1 ) =0 . 

IF (NOD ( I , J , NKM1 ) . EQ . 2 )G0  TO  171 
VISF=0 . 25*( 2 . *VISL+VIS ( I . J , NKM1 ) +VIS ( I , JM1 , NKM1 ) ) 
SP(I , J,NKM1)=SP(I, J,NKM1)-XY0Z2*VISF 
GO  TO  153 
171  AF ( I , J , NK)=0 . 

153  CONTINUE 

***  FOR  THE  TEST  BLOCK 


***  THE  CELLS  WITH  NOD(I,J,K)  =  4 

THE  VALUES  OF  SU  AND  AP  ARE  GIVEN  IN  DO  LOOP  105 
***  THE  CELLS  INSIDE  THE  DOOR  WALL 

THE  VALUES  OF  SU  AND  AP  ARE  GIVEN  IN  DO  LOOP  105 
***  ASSEMBLY  THE  COEFICIEMTS 

DO  350  K=2 ,NKM1 
DO  350  J=3 , NJM1 
DO  350  1=2 ,NIM1 

I F ( NOD ( I , J , K ) . GE . 1 1 . OR . NOD ( I , J , K ) . EQ . 4 ) GO  TO  350 
AP ( I , J , K)=AE ( I , J , K)+AW( I , J , K)+AN ( I , J , K)+AS ( I , J , K)+AF ( I , J , K)+ 

Sc  AB(I ,J,K)-SP(l,J,K) 

DV( I , J , K)=DZX/ AP ( I , J , k) 

350  CONTINUE 

CALL  TRID(2 ,3 , 2 ,NIM1 ,NJM1 ,NKM1 , V) 

***  GIVE  V-VELOCITY  IN  THE  VENT  AND  DOOR  GAP 

RETURN 
END 

SUBROUTINE  CALW 

COMMON  /BL1 /BUOY , VI SL , VOL , VOLDT , KBOUND , DT IME , NTREAL , SORSUM , NWR ITE 
COMMON  / BL2 /  DX , DY , DZ , DXY , DYZ , DZX , XYOZ , YZOX , ZXOY , XYPZ , YZPX , ZXPY 
COMMON  /BL3/  NI ,NJ ,NK,NIM1 ,NJM1 ,NKM1 ,NIM2 ,NJM2 ,NKM2 
COMMON/ CONS/XTIME , NT , UO , PRT , TA , 

Sc  NTMAXO,RA,CPAIR, SIGMA 

COMMON/BLIO/  Z(30) ,REQ(30) , VIS(22 , 18, 18) ,RRES(3) 

COMMON/NE/  U(22,18,18)/V(22,18,18),T(22,18,13),R(22,18,18), 

&  P(22, 18, 18),W(22,18 ,18),WOD(22, 18 ,18) 

C  Sc  '  P(22,18,13) ,W(22, 18,18) ,WOD(22 ,18,13) , NOD (22 ,18,18) 

COMMON/ OD/UOD( 22,13,18) ,VOD( 22, 18,18) , TOD ( 22 , 18 , 18) , ROD ( 22 , 13 , 18) 
C0MM0N/BL31/TPD(22, 18,18) ,RPD(22, 18, 18) ,UPD(22 , 18, 18) , 

Sc  VPD (22,18,13) , WPD( 22 ,18,18), PPD( 22 ,18,18), RESORM(20) , ITER 
COMMON/ CO/AP (22,18, 18) , AE ( 22 , 18 , 18) , AW( 22 , 18 , 18) , AN( 22 , 18 , 18) , 

Sc  AS (22, 18, 13) ,SU(22,13,1S) , SP(22 , 18, 18) , AF ( 22 , 18 , 18 ) , AB(22 , 18 , 18) 
COMMON/ PP/DU (22,13,18) ,DV(22,18,18) , DW( 22 , 18 , 18) , PP( 22 , 18 , 18) 
COMMON/ BL1 2 /  DYZ02 , DZX02 , DXY02 , XYPZ2 , YZPX2 , ZXPY2 , DX4 , DY4 , DZ4 
Sc  , XYOZ 2 , YZOX2 , ZXOY2 , DYZ04 , DZX04 , DXY04 

COMMON  /VIEW2/  HIIZ(9) ,MJJZ(9) , MKKZ ( 9 ) , LI ( 9 ) , LJ (9 ) , LK( 9 ) , 

Sc  ITHIN(9) , JTHIN(9) ,KTHIN(9) , AXY(9) ,AYZ(9) ,AZX(9) , 

Sc  IHSB(9)  ,  JHSB(9)  ,KHSB(9)  ,NHSW(9)  ,NHSD(9)  ,NHSH(9)  , 

Sc  LTYPE  (9 , 6 ) 

C 

DO  100  1=2 , NIM1 
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iMi=r-i 

ipi=i+i 

DO  100  J=2 ,NJM1 

JM1=J-1 

JP1=J+1 

DO  100  K=3 , NKM1 

KM1=K-1 

KP1=K+1 

IF (NOD (I,J,K) . GE . 1 1 ) GO  TO  100 
I F { K . EQ . NK . AND . NOD ( I ,  J  , NKM1 ) . NE . 2 ) GO  TO  1000 
IF (NOD (I , J,K) . EQ. 5)GO  TO  1000 

CE=DYZ04*( (R( I , J , K)+R( IP1 , J , K) )  *U(IP1 , J,K) 

&  +(R(I,J,KM1)+R(IP1.J,KM1))*U(IP1/J, KM1 ) ) 

CW=DYZ04* ( (R( I , J , K)+R( IM1 , J , K) )  *U(I , J , K) 

&  + (R( I , J , KM1 ) +R( IM1 . J,KM1))*U(I, J,KM1) ) 

CN=DZX04*((R(I, J,K)+R(I,JP1,K))  *V(I  ,JP1,K) 

&  + ( R ( I , J , KM1 ) +R ( I , JP1 , KM1 ) ) *V ( I , JP1 , KM1 ) ) 

CS=DZX04*((R(l,  J,K)+R(I,JM1,K.))  *V(I  ,J,K) 

&  +(R(I, J,KM1)+R(I, JM1,KM1) )*V(I, J,KM1)) 

IF (K . EQ .NK)GO  TO  130 

CF=DXY02*R(I , J,K  ) * (W(I , J , K) +W( I , J , KP1 ) ) 

GO  TO  131 

130  CF=DXY*R(I, J,K)*W(I, J,K) 

131  CONTINUE 

CB=DXY02*R(  I , J , KM1 ) * (W( I , J , K) +W( I , J ,KM1 ) ) 

VISCE=VIS ( IP1 , J , K) 

VISCW=VIS ( IM1 , J , K ) 

VISCS=VIS(I, JM1,K) 

VISCN=VIS ( I , JP1 , K) 

VISCB=VIS(I, J,KH1) 

VISCF=VIS(I , J.KP1) 

AE ( I , J ,K)=0 . 5* (  ABS(CE)-CE)+YZOX*VISCE 
AW ( I , J , K  =0 . 5* {  ABS { CW  +CW ) +YZOX*VI SCW 
AN ( I , J , K)=0 . 5* (  ABS  ( CN) -CN) +ZXOY*VISCN 
AS (I , J,k)=0.5*(  ABS { CS )+CS )+ZXOY*VISCS 
AF(I , J,K  =0.5*{  ABS ( CF ) -CF )+XYOZ*VISCF 
AB(I , J,K)=0.5*(  ABS(cb)+CB)+XYOZ*VISCB 

SP ( I , J , K) =-0 . 5*  ( ROD (I, J,K) +ROD ( I , J , KM1 ) ) *VOLDT 

BURQ=-BUOY*0 . 5*(R( I , J , K) -REO (K)+R(I , J, KM1 ) -REQ ( KM1 ) ) *VOL 
PZ=(P(I, J,KM1)-P(I, J,K))*DXY 

RU=0 .  5*  ( ROD ( I , J . KM1 ) +ROD ( I , J , K) ) *WOD ( I . J , K) *VOLDT 

RE=(UOD( IP1 , J , K ) -UOD ( IP1 , J , KM1 ) ) *VISCE*DZ 

RW= ( UOD { I  ,J,K)-UOD(I  , J,KMl) )*VISCW*DZ 

RN= ( VOD (I , JP1 ,K) -VOD ( I , JP1 , KM1 ) ) *VISCN*DX 

RS= ( VOD ( I ,  J  ,  K) -VOD ( I , J  ,KM1) )*VISCS*DX 

IF(K.EQ.NK)GO  TO  133 

RF= (WOD ( I , J , KP 1 ) -WOD (I , J,K) ) *VISCF*XYOZ 
GO  TO  134 

133  RF=XYOZ*WOD(I, J,K)*VISCF 

134  CONTINUE 

RB= ( WOD (I , J,K) -WOD ( I , J , KM1 ) ) *VISCB*XYOZ 
SU( I , J ,K)=BURO+PZ+RU+RE-RW+RN-RS+RF-RB 
GO  TO  100 
000  SU( I , J , K)=0 . 

AP ( I , J , K)=  1.E20 
100  CONTINUE 

***  THE  TOP  AND  BOTTOM  WALLS 

DO  101  1=2 , NIM1 
DO  101  J=2 ,1'IJMl 
AB ( I , J , 3 ) =0 . 

CB=R ( I , J , 2 ) *W ( I , J , 3 ) *DXY02 
VISB=VIS ( I , J , 2 ) 

SP(l,J,3)=SP(I,J,3)-0.5*(  ABS (CB)+CB) -XYOZ*VISB 
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C  IF (NOD ( I , J , NKM1 ) . EQ . 2 ) GO  TO  132 

AF ( I , J , NKM1 )=0 . 

CF=R ( I ,  J  , MKM1 ) *W ( I , J , NKM1 ) *DXY02 
VISF=VIS ( I , J ,NKM1 ) 

SP(I, J,NKM1)=SP(I, J,NKMl)-0.5*(  ABS (CF ) -CF ) -XYOZ*VISF 
GO  TO  101 
132  AF( I , J ,MK)=0 . 

101  CONTINUE 

***  THE  REAR  AND  FRONT  WALLS 

DO  102  1=2 ,NIM1 
DO  102  K=2 ,NKM1 
KM1=K- 1 
AS ( I , 2 , K) =0 . 

VISS=0.25*(2.*VISL+VIS(I ,2,K)+VIS(I ,2,KM1) ) 

SP(I ,2,K)=SP(I ,2,K)-ZXOY2*VISS 
AN(  I , NJN1 , K) =0 . 

IF (NOD ( I ,NJM1 ,  K) . EQ. 2)G0  TO  102 
VISN=0 . 25* ( 2 . *VISL+VIS ( I , NJM1 , K) +VIS ( I , NJM1 , KM1 ) ) 

SP( I ,  NJM1 , K)=SP (I , NJM1 ,  K) -ZXOY2*VISN 

102  CONTINUE 

***  THE  RIGHT  AND  LEFT  WALLS 

DO  103  J=2 ,NJM1 
DO  103  K=2 , NKM1 
KM1=K- 1 
AW ( 2 , J , K ) =0 . 

VISW=0 . 25* ( 2 . *VISL+VIS ( 2 , J , K) +VIS ( 2 , J , KM1 ) ) 

SP(2, J,K)=SP(2, J,K)-YZOX2*VISW 
AE (NIM1 , J . K)=0 . 

VISE=0.25X(2. *VISL+VIS (NIM1,J,K)+VIS(NIM1,J, KM1 ) ) 
SP(NIM1 , J,K)=SP(NIM1 , J,K)-YZOX2*VISE 


103 

CONTINUE 

THE  TEST  BLOCK 

THE  CELLS  WITH  NOD(I,J,K)  = 

5 

THE  VALUES  OF  SU  AND  AP  ARE  GIVEN 
THE  CELLS  INSIDE  THE  TOP  WALL 

IN 

DO 

LOOP 

100 

THE  VALUES  OF  SU  AND  AP  ARE 

ASSEMBLY  THE  COEFICIENTS 

GIVEN 

IN 

DO 

LOOP 

100 

DO  300  1=2 , NIM1 
DO  300  J=2 ,NJM1 
DO  300  K=3 , NKM1 

IF(NOD(l,J,K) .GE.ll. OR .NOD ( I , J , K) . EQ . 5 )GO  TO  300 
I F ( NOD ( I , J , NKM1 ) . EQ . 2 . AND . K . EQ . NK ) GO  TO  300 
AP ( I , J , K ) =AE ( I , J , K) + AW ( I , J , K) +AN ( I , J , K ) +AS (l,J,K)+AF(I,J,K)+ 
&  AB(I, J,K)-SP(I, J,K) 

DW ( I , J , K) =DXY/AP ( I , J , k) 

300  CONTINUE 


CALL  TRID ( 2,2,3 ,NIM1 ,NJM1 ,NKM1 ,W) 

RETURN 

END 

SUBROUTINE  CALP 

COMMON  /BL1 / BUOY , VISL , VOL , VOLDT , KBOUND , DTI ME , NTREAL , SORSUM , NWRITE 
COMMON  / BL2/  DX , DY , DZ , DXY , DYZ , DZX , XYOZ , YZOX , ZXOY , XYPZ , YZPX , ZXPY 
COMMON  /BL3/  NI , NJ , NK , NIM1 , NJM1 , NKM1 , NIM2 , NJM2 , NKM2 
COMMON/CONS/XTIME , NT , UO , PRT , TA , 

&  NTMAXO,RA,CPAIR, SIGMA 

COMMON/BLIO/  Z(30) ,REQ(30) , VIS (22 , 18, 18) ,RRES(3) 

COMMON/NE/  U(22, 18,18) ,V(22,18,18) ,T(22/18/18) ,R(22, 18,18) , 
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non  no  non 


c 


c 


c 


c 

c 


&  P(22,18,18) ,W(22, 18,13) , WOD (22,18,13) 

&  P(22,18,18) ,W(22,18,18) , WOD(22,18,18) , NOD ( 22 ,18,18) 

COMMON/ OD/UOD (22,18,18; , VOD ( 22 , 18 , 18 ) , TOD ( 22 , 18 , 18 ) , ROD (22 , 18 , 18) 
C0MM0M/BL31/TPD (22,18,18), RPD( 22 ,18,18), UPD (22 ,18,18) , 

&  VPD( 22,18,18) , WPD( 22 ,18,18), PPD (22,18,18) , RESORM(20 ) , ITER 
COMMON/ CO/ AP (22, 18, 18) , AE ( 22 , 18 , 18) , AW( 22 , 18 , 18) , AN( 22 , 18 , 18) , 

&  AS(22,18,18) ,SU(22,18,18) , SP ( 22 , 13 , 18) , AF ( 22 , 18 , 18) , AB ( 22 , 18 , IS) 
COMMON/PP/DU (22,18,13) , DV( 22 , 18 , 18) , DW( 22 , 18 , 18) , PP ( 22 , 18 , 18) 
C0MM0N/BL1 2/  DYZ02 , DZX02 , DXY02 , XYPZ2 , YZPX2 , ZXPY2 , DX4 , DY4 , DZ4 
&  , XY0Z2 , YZ0X2 , ZX0Y2 , DYZ04 , DZX04 , DXY04 

COMMON  /VIEW2/  MIIZ(9) ,MJJZ(9) ,MKKZ(9) ,LI (9) ,LJ(9) ,LK(9) , 

&  ITHIN(9) , JTHIN(9) ,KTHIN(9) ,AXY(9) ,AYZ(9) ,AZX(9) , 

&  IHSB(9) , JHSB(9) ,KHSB(9) ,NHSW(9) ,NHSD(9) ,NHSH(9) , 

&  LTYPE (9,6) 


301 


302 


303 


304 


DO  100  1=2 ,NIM1 
IM1=I- 1 
IP1=I+1 

DO  100  J=2 ,NJM1 

JP1=J+1 

JM1=J-1 

DO  100  K=2 ,NKM1 
K?1=K+1 


KM1=K- 1 

IF (NOD ( I , J , K) . GE . 1 l) GO  TO  100 
IF ( I .ME . NIM1 )GO  TO  301 
AE (NIM1 , J, K)=0 . 

CE=0 . 

GO  TO  302 
CONTINUE 

AE(I , J,K)=(R(I, J,K)+R(IP1, J,K))*DYZ02*DU(IP1, J,K) 
CE=(R(I, J,K)+R(IP1, J,K))*U(IP1, J,K)*DYZ02 
CONTINUE 

IF (I. ME. 2  ) GO  TO  303 

AW(  2  , J , K)=0 . 

CW=0. 


GO  TO  304 
CONTINUE 
AW (I , J,K) 
CW= ( R ( I , J 
CONTINUE 
AN ( I , J , K ) 
CN=(R(I , J 
AS(I,J,K) 
CS=(R(I , J 
AF(I,J,K) 
CF=(R(I , J 
AB ( I , J , K) 
CB= (R( I , J 


=(R(I , J,K)+R(IM1,J,K))*DYZ02*DU(I  , J,K) 

,K)+R(IM1,J,K))*U(I  , J ,K) *DYZ02 

=(R(I, J,K)+R(I.JP1,K))*DZX02*DV(I,JP1,K) 
,K)+R(I, JP1,K))*V(I, JP1,K)*DZX02 
=(R(I , J ,K)+R( I . JM1 , K) )*DZX02^DV(I , J  ,K) 
,K)+R(I,JM1,K))*V(I,J  ,K)*DZX02 

= (R( I , J , K) +R ( I . J , KP1 ) ) *DXY02*DW( I , J , KP1 ) 
,K)+R(I , J.KPl) )*W(I, J ,KP1)*DXY02 
=(R(I, J,K)+R(I. J,KM1) )^DXY02^DW(I, J,K  ) 
,K)+R(I, J,KM1) )*W(I/J,K  )^DXY02 


SP(I, J,K)=0. 

SU(I, J,K)=(ROD(I, J,K)-R(I, J,K))*VOLDT-CE+CW-CN+CS-CF+CB 
100  CONTINUE 


***  THE  TOP  AND  BOTTOM  WALLS 


DO  101  1=2 , NIM1 
DO  101  J=2 ,NJM1 
AB ( I , J , 2) =0 . 

AF(I, J,NKM1)=0. 

IF (NOD( I , J ,NKM1 ) . EQ . 2 ) 

&SP(I,  J,NKMl)=-0.5’i;(R(I,  J,NKM1)+R(I,  J,NK))*DW(I,  J,NKM1)^DXY 
101  CONTINUE 

THE  REAR  AND  FRONT  WALLS 


DO  102  1=2 ,NIM1 
DO  102  K=2 ,NKM1 
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AS ( I , 2 , K)=0 . 

AN  ( I , NJM1 , K)=0 . 

C  IF (NOD (I,NJH1,K) . EQ . 2 ) 

C  &SP(I,NJM1,K)=-0.5*(R(I,NJM1,K)+R(I,NJ,K))*DV(I/NJM1/  K)*DYZ 
102  CONTINUE 
C 

C  ***  THE  RIGHT  AND  LEFT  WALLS 
C  GIVEN  IN  DO  LOOP  100 

C 

C  ***  THE  TEST  BLOCK 
C7712  CONTINUE 
C 

C  ***  ASSEMBLY  THE  COEFICIENTS 
C 

DO  150  1=2, MINI 
DO  150  J=2,MJM1 
C  DO  150  K=2 , NKM1 

C  IF(NOD(I, J,K).GE.ll)GO  TO  150 

AP ( I , J , K)=AE ( I ,  J  , K)+AW( I , J , K)+AN ( I , J , K)+AS ( I , J , K)+AF ( I , J , K)+ 
&  AB(I, J,K)-SP(I, J,K) 

150  CONTINUE 
C 

CALL  TRID ( 2 , 2 , 2 , MINI ,MJM1 ,NKM1 , PP) 

C 

DO  600  1=3 , NIM1 
DO  600  J=2 , NJM1 
DO  600  K=2 , NKM1 

C  IF (NOD( I . J , K) . GE . 11 )GO  TO  600 

U(I,  J,K)=U(I,  J,K)+DU(I,  J,K)*(PP(I-1,J,K)-PP(I,J,K)) 

600  CONTINUE 

DO  601  1=2 ,NIM1 
DO  601  J=3 ,NJM1 
DO  601  K=2 ,NKM1 

C  IF(NOD( I . J , K) . GE . 1 1 )GO  TO  601 

V(  I , J , K)=V( I , J , K)+DV (I,J/K)*(PP(I/J“1,K)“PP(I/J/K)) 

601  CONTINUE 

DO  602  1=2 ,NIM1 
DO  602  J=2 ,N JM1 
DO  602  K=3 ,MKM1 

C  IF (NOD( I . J , K) . GE . 11 )GO  TO  602 

W(I, J,K)=W(I, J,K)+DW(I, J,K)*(PP(I, J,K-1)-PP(I, J,K)) 

602  CONTINUE 

DO  220  1=2 , NIM1 
DO  220  J=2 ,NJM1 
DO  220  K=2 ,NKM1 

C  IF (NOD ( I . J , K) . GE . 1 1 )GO  TO  220 

P(I/ J/K)=P(I, J,K)+PP(I, J,K) 

PP(I . J,K)=0. 

C  WRITE (6 , 22 1 ) I , J , K, P ( I , J , K) 

C221  FORMAT (5X, ' I ' , 14 , ' J ' , 14 , ' K ' , 14 , ' P ' , El 1 . 4) 

220  CONTINUE 
C 

C  ***  RESET  THE  VELOCITY  IN  THE  FREE  BOUNDARY 
C 

SORSUM=0 . 

RESORM( ITER)=0 . 

DO  240  1=2 ,NIM1 
DO  240  J=2 , NJM1 
DO  240  K=2 ,NKM1 

C  IF (NOD ( I , J , K) . GE . 11 )GO  TO  240 

IF ( I . EQ .NIM1 )GO  TO  241 

CE= ( R ( I , J , K) +R ( 1+1 , J , K) ) *U( 1+1 , J , K) *DYZ02 
GO  TO  242 

241  CONTINUE 

CE=0 . 

242  CONTINUE 

CW=(R(I,  J,K)+R(I-1,  J,K)  )*U(I  ,  J,K)’>;DYZ02 

CN=(R(I, J,K)+R(I, J+1,K) )*V(I, J+1,K)*DZX02 
CS=(R(I, J,K)+R(I, J-1,K))*V(I, J  ,K)*DZX02 
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CF= ( R ( I , J , K ) +R ( I , J , K+l ) ) *W ( I , J , K+l ) *DXY02 

CB=(R(I, J,K)+R(I, J,K-l))*W(It J,K  )*DXY02 

RESIDU= ( ROD ( I , J , K) -R ( I , J , K) ) *VOLDT-CE+CW-CN+CS-CF+CB 

SORSUM=SORSUM+RES IDU 

RESORM ( ITER ) =RESORM ( ITER) +ABS ( RESIDU ) 

240  CONTINUE 
RETURN 
END 

SUBROUTINE  TRID( 1ST, JST . KST. ISP, JSP . KSP. PHI ) 

c 

COMMON  /BL3/  NI ;NJ,NK,NIM1 ,NJM1 ,NKM1 ,NIM2 ,NJM2 ,NKM2 
COMMON/ BL31/TPD( 22 ,18,18), RPD( 22 ,18,18) , UPD( 22 ,18,18) , 

&  VPD (22,18,18) , WPD( 22,18,18) ,PPD(22 , 18, 18) , RESORM (20) , ITER 
COMMON/CO/AP (22,18,18) , AE (22 , 18 , 18) , AW (22 , 18 , 18) , AN( 22 , 18 , 18) , 

&  AS (22,18, 18) ,SU (22, 18,18) .  SP (22, 18,18) , AF(22 , 18 , 18) ,AB (22, 18,18) 
DIMENSION  A(25) ,B(25) ,C(25) , PHI (22 , 18 , 18) 

C 

ISTM1=IST- 1 
A(  IST.M1  )=0 . 

C ( ISTM1 ) =0 . 

DO  100  J= JST , JSP 
DO  100  K=KST , KSP 
DO  101  I=IST , ISP 

IF ( JSP . EO . NJ /PHI ( I ,NJ+1 , K)=PHI ( I ,NJ , K) 

IF (KSP . EQ .NK)PHI ( I , J ,NK+1 )=PHI ( I , J ,NK) 

A ( I ) =AE ( I , J , K) 

B ( I ) = AW ( I , J , K ) 

C(I)=AN(I, J,K)*PHI(I/ J+1,K)+AS(I, J,K)*PHI(I, J-l ,K) 

&  +AF (I , J , K;*PHI ( I , J . K+l ) +AB ( I , J , K) *PHI ( I , J , K- 1 ) +SU ( I , J , K) 

TERM=1 ./(AP(I, J/K)-B(I)*A(I-1)) 

A( I ) =A( I ) *TERM 

C(I)=(C(I)+B(I)*C(I-1))*TERM 

101  CONTINUE 

PHI ( ISP , J , K)=C( ISP ) 

ISTA=IST+1 

DO  102  I I=ISTA , ISP 

I=IST+ISP-II 

IP1=I+1 

PHI (I , J,K)=A(I)*PHI(IP1 , J,K)+C(I) 

102  CONTINUE 
100  CONTINUE 

C 

JSTM1=JST- 1 
A? JSTM1 )=0 . 

C ( JSTM1 )=0 . 

DO  200  K=KST , KSP 
DO  200  I=IST , ISP 
DO  201  J=JST , JSP 
A( J)=AN ( I , J , K) 

B ( J ) —AS (I  J  K ) 

C  ( J )  =  AE  ( I '  J  '  K)  *PHI  ( I  +1 ,  J ,  K )  +AW  ( I ,  J  ,  K )  *PHI  ( I  - 1 ,  J  ,  K ) 

&  +AF ( I , J , K)*PHI ( I , J . K+l ) +AB ( I , J , K)*PHI ( I , J , K- 1 ) +SU ( I , J , K) 

TERM=1 ./ (AP(I,J,K)-B(J)*A(J-1); 

A(J)=A(J) XTERM 
C(J)=(C(J)+B(J)*C(J-1)) *TERM 

201  CONTINUE 

PHI(I,JSP,K)=C(JSP) 

JSTA=JST+1 
DO  202  J J=JSTA , JSP 
J=JST+JSP- J J 
JP1=J+1 

PHI(I,J,K)=A(J )*PHI (I,JP1,K)+C(J) 

202  CONTINUE 
200  CONTINUE 

C 

KSTM1=KST-1 
A(KSTM1 ) =0 . 

C(KSTM1)=0. 
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on  non 


DO  300  I=IST , ISP 
DO  300  J= JST , JSP 
DO  301  K=KST , KSP 
A(K)=AF ( I , J , K) 

B  K  =AB  I,J,K 

C ( K ) =AE ( I , J , K) *PHI ( 1+1 , J , K ) +AW ( I , J , K V*PHI ( I  - 1 ,  J  ,  K ) 

&  +AN(I, J,K)*PHI(I, j+i,k)+as(i, j,k)*phi(i, j-i,k)+su(i, j,k) 

TERM=1./(AP(I, J,K)-B(K)*A(K-1)) 

A(K)=A(K)*TERM 

C(K)=(C(K)+B(K)*C(K-1))*TERM 

301  CONTINUE 

PHI ( I , J , KSP )=C(KSP ) 

KSTA=KST+1 

DO  302  KK=KSTA,KSP 

K=KST+KSP-KK 

KP1=K+1 

PHI (I, J,K)=A(K)*PHI(I, J/KP1)+C(K) 

302  CONTINUE 
300  CONTINUE 

GO  TO  700 

IF ( 1ST . LT . 0 )  GO  TO  700 

x^rx/^^^xxxx^^xxxxxxxx^/^xx^x 

ISP1=ISP+1 
B  ( ISPl ) =0 . 

C(ISP1)=0. 

DO  400  J=JST , JSP 
DO  400  K=KST , KSP 
DO  401  I I=IST , ISP 
I=ISP+IST-II 
IP1=I+1 

A ( I ) =AE ( I , J , K) 

B ( I ) =AW ( I , J , K) 

C ( I )=AN ( I ,  J , K) *PHI ( I . J+l , K) +AS ( I ,  J , K) *PHI ( I ,  J-l , K)+AF ( I , J , K) * 
&  PHI (I, J,K+1)+AB(I.J,K)*PHI(I, J/K-1)+SU(I/ J,K) 

TERH=1 ./(AP(I, J,K)-A(I)*B(I+1) ) 

B ( I ) =B ( I ) *TERM 

C(I)=(C(I)+A(I)*C(I+1))*TERM 
401  CONTINUE 

PHI (1ST , J , K)=C( 1ST) 

ISTP1=IST+1 

DO  402  I=ISTP1 . ISP 

PHI (I, J,K)=B(I)*PHI(I-1 , J,K)+C(I) 

402  CONTINUE 
400  CONTINUE 
C 

JSP1=JSP+1 
B ( JSP1 )=0 . 

C(JSP1)=0. 

DO  500  K=KST , KSP 
DO  500  I=IST , ISP 
DO  501  J J=JST , JSP 
J= JSP+ JST- J J 
JP1=J+1 

A ( J ) = AN ( I ,  J  ,  K  ) 

B  J  =AS  I,J,K 

C ( J )=AE ( I ,  J , K)*PHI ( 1+1 , J , K)+AW ( I ,  J , K) *PHI (1-1 , J ,K)+AF ( I , J , K) * 
&  PHI ( I , J , K+l ) +AB ( I . J , K ) *PHI ( I , J , K- 1 ) +SU ( I , J , K) 

TERM=1 . / ( AP ( I , J , K) - A ( J ) *B ( J+l ) ) 

B( J)=B( J)*TERM 

C(J)=(C( J)+A( J)*C(J+l) )*TERM 
501  CONTINUE 

PHI ( I , JST , K)=C( JST) 

JSTP1=JST+1 

DO  502  J= JSTP1 . JSP 

PHI ( I,J,K)=B(J) *PHI (I,J-1,K)+C(J) 

502  CONTINUE 
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on  n  on  on 


500  CONTINUE 


KSP1=KSP+1 
B (KSP1 )=0 . 

C (KSP1 ) =0 . 

DO  600  I=IST , ISP 
DO  600  J=JST , JSP 
DO  601  KK=KST , KSP 
K=KSP+KST-KK 
KP1=K+1 

A(K)=AF ( I , J , K) 

B(K)=AB(I, J,K) 

C (K) =AE ( I ,  J  , K) *PHI ( 1+1 , J , K)+AW ( I , J , K)*PHI (1-1 , J , K)+AN ( I , J , K)* 
&  PHI (I, J+l ,K)+AS(I . J,K)*PHI(I, J-l ,K)+SU(I, J,K) 
TERM=1./(AP(I, J,K)-A(K)*B(K+l)) 

B(K)=B(K)*TERM 

C(K)=(C(K)+A(K)*C(K+1) )*TERN 
601  CONTINUE 

PHI ( I , J , KST)=C (KST) 

KSTP1=KST+1 

DO  602  K=KSTP1 . KSP 

PHI (I , J,K)=B(K)*PHI(I, J,K-1)+C(K) 

602  CONTINUE 
600  CONTINUE 
700  CONTINUE 
RETURN 
END 


BLOCK  DATA 

COMMON/BL80/BTURB , ABTURB , CNT , DX2 , DY2 , DZ2 , VISMAX 
&  ,SMPP(22, 13, IS) ,RI(22,18, 18) 

COMMON/ CONS/XTIME , NT , U0 , PRT , TA , 

&  NTMAX0,RA, CP AIR, SIGMA 

DATA  BTURB, ABTURB, CNT/ 1. ,2. , .08/ 

DATA  CONDB,KI/ .03565,2/ 

DATA  XTIME ,NT/0 . ,0/ 

DATA  RA , CP AIR , UO , PRT , TA , NTMAXO , SIGMA/ 

&  .0714, .24,1. ,1. ,555.86,0,1 .712E-9/ 

END 
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